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ek 1/0 counts. 
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a window where a newly attached process tries to attach 
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Unconceal output ey logical name. 
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a SPAWN/ TABLE te ot th propagat? ort name. 
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the a, or both processes and that t 
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default eu s specif 
Make W vag 
Remove S$CHIPD 
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7 Harold Schultz 
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Fix bug in null input file processing. 
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supply address of 10SB to 10sm. $ ApRocees alo. 


correct y 
Be a Little more intelligent about when fo perform the Q10. 


v03-014 pceogts Peter George 
Add /CLI qualifier 
se event flags nore cone tpgeatty. 


27-Jun-1983 


e code to propaga e olg format logical name tables. 
+t i mode Q10 whenever an interactive 


Spec tty sist, br ar unentt 


rocess comes ome 
emove CTRL/C and ote tite AST warning message. 


v03-013 PCG0012 Peter George 27-Jun-1983 
Change MOVW in logical name code to MOVL. 

v03-012 PCG0011 Peter George 15-Jun-1983 
Add SPAWN/NOKEYPAD. 

v03-011 PCG0010 Peter George 27-May-1983 


Use DCLSFORMMSG for logical name message. 
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Add support for new logical names to be passed thru 
to the subprocess. 


v03-009 Se a Peter George 27-May-1983 
bug in SPAWN CTRL/Y processing. 
Use DCLSFORMMSG. 


v03-008 PCG0008 Peter George 20-Apr-1983 
Add prompt string and keypad state to context that is 
assed through be the subprocess. 
ake spawn work in command procedures. 


v03-007 A aeogg Peter George 30-Mar-1983 
e SPAWN/NOTIFY use SPWN_T_PROCESS. 
fix “bug, in ATTAGH AST that allows iilegal attaches. 


ul. y signal process creation erro 

Process parsed input/output devices as PF devices. 
v03-006 PCG0005 Peter George 29-Mar-1983 

Sort out CTX_C_KEY* symbols. 
v03-005 PCG0004 er George 01-Mar-1983 

Call PCLSGETNVAL’* y ned - keypad symbols to subprocess. 
v03-004 PCG0003 Geter George 01-Feb-1983 

Clean up code, fix bugs 

Add /SYMBOLS, /LOGICA _NAMES /NOTIFY. 
v03-003 PCG0002 Peter George 14-Jan-1983 

Fix SPWN deallocation problem. 
v03-002 PCG0001 r Geo ~ 18-Nov-1982 

Store size of eikinthed TM Y structure in that structure. 
v03-001 KDM0002 een D. Morse 28-Jun-1982 


thle 
Added SIODEF, SPSUDEF and SSSDEF. 
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v04-000 SE 1986 98:05:95 EOE ac H8E hon Ran: oe 
D0 3 SYSSOUTPUT: 
54 $5 50 54 55 4F 24 53 59 53 90" 004 Hi ~ASCIC  *SYSSOUTPUT’ ; DEFAULT OUTPUT STREAM 
004 205 SYSSSYSTEM: 
3A 4D 45 54 53.59 53 24 53 59 53 00" 004 6 sASCIC  "SYSSSYSTEM:' : DEVICE SPEC. FOR CLI SPECIFICATION 
4" 
0 7 NL: 
3A 4C 4E SF 90° if i sASCIC "NLS! ; NULL DEVICE 
Ju . 
DOE COM: 
4D 4F 43 26 90" se 398 sASCIC *.COM" ; DEFAULT INPUT FILE TYPE 
ft: 11 LOG: 
47 4F 4C 2 90° d0¢ 31 -ASCIC *.LOG' ; DEFAULT OUTPUT FILE TYPE 
tf He CLI_LNAME : ; KNOWN CLI_NAME TABLE 
4C 43 44 00° DOGA i$ ~~ «ASCE “DEL ; CLINAME FOR DCL 
52 43 4D 00° ite 216 »ASCIC 'MCR® ; CLI NAME FOR MCR 
GC 4C 45 48 53 00° 007 217 sASCIC "SHELL" : CLI NAME FOR SHELL 
1 .BYTE 0 ; END OF TABLE MARKER 
0079 20 NOTIFY_MSG: 
73 $3 $3 F 7 4 $ if 53 9? 7 99” 007 1 eASCIC ‘Subprocess !AC has completed’ 
SF 65 20 75 OF Be 8S Ta 6S GC 70 GD 0098 
1E 0079 
000002z¢ 0098 222 NOTIFY_LEN = 2841541 
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49 
00° 8F 3 
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60 

0060 
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Los: shu. sé LSGETDVAL 
LBC )3— «aR, 4 
§ MPL #PTR_K_COMDQUAL 
BEQL $ 
: CMP #PTR_K_PARAMETR 
BNE § 
va gSPWN_0_CHDSTR(RG) 
43$: $ 
133: L$6 


ETNVAL 
#CLISK_SPAW_WAIT 


PR 
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; PROCESS THE VERB QUALIFIERS ON THE COMMAND LINE 


AX/VMS Macro V04 


p 
DCL. SRCISPAUN.MAR; oe 


get NEXT TOKEN 
fo END yore 


VER QUALIFY 

BRANCH I $0 

PARAMETER (COMMAND STRING)? 

IF NO IGNORE I 

SAVE DESCRIPTOR OF COMMAND STRING 
D OF COMMAND PARSING 


; EN 
3 GET QUALIFIER NUMBER 
/WAIT? 


R 
4 
R 
4 
D 
: ee 
R1 ,#CLISK_SPAW_LOG ; /L06? 
39 BEQL aT pills 
38 cnPS Ri] ,#CLISK_SPAU_SYMB ; /SYMBOLS? 
cnPS Ri ,#CLISK_SPAW_LOGI ; /LOGICAL_NAMES? 
; cRPS BY #CLISK_SPAW_NOTI 3; /NOTIFY? 
1 CMPB ef #CLISK_SPAW_CARR ; /CARRIAGE_CONTROL? 
10A 5 BEQL «53/1 
6 CAPE #CLISK_SPAU_KEYP 3; /KEYPAD? 
1 2 W 6 ; ; CHECK OTHER QUALIFIER POSSIBILITIES 
11 19 49$:  SETBIT SPWN_V_WAIT,SPWN_W_FLAGS(R6) __; ASSUME /WAIT 
11 1 BBC #PTR-V-NEGATE-PTR__FLAGS,R3.40$ ; IGNORE IF NOT /NOWAIT 
110 1 CLRBIT SPUN_V_WAIT, SPUN_O_FLAGS(R6) :CLEAR WAIT FLAG 
1 : 14 47$: | SETBIT SPWN_V_LOG,SPWN_W_FLAGS(R6) ; ASSUME /LOG 
1 15 BBC #PTR-V-NEGATE-PTR-V_FLAGS.R3,40$ ; IGNORE IF NOT /NOLOG 
198 318 CLRBIT SPUN-VILOG. SPUN_U_FCAGS (RO) ; CLEAR LOG MESSAGE FLAG 
1 18 50$:  SETBIT SPWN_V_CLISYM.SPWN_W FLAGS(R6) ; ASSUME /SYMBOLS 
1 1 BBC #PTR-V-NEGATE-PTR_@_FLAGS,R3,40$ ; IGNORE IF NOT /NOSYMBOLS 
9 CLRBIT SPUN-VACLISY »SPWR_O_FLAGS(R6) =; CLEAR CLISYM FLAG 
13F 2 51$ SETBIT SPWN_V_LOGNAM,SPWN W FLAGS(R6) ; ASSUME /LOGICAL_NAMES 
146 BBC #PTR-V-NEGATE-PTR_V FLAGS .R3,41$ ; IGNORE IF NOT 7NOLOGICAL_NAMES 
148 4 cLRBIT SPUN-V_LOGNAR, SPUR_O_FLAGS(R6) ; CLEAR LOGNAM FLAG 
14F : 52$:  SETBIT SPWN_V_NOTIFY.SPWN W_FLAGS(R6) ; ASSUME /NOTIFY 
154 BBC #PTR-V“NEGATE-PTR_@_FLAGS.R3,41$ ; IGNORE IF NOT /NONOTIFY 
: CLRBIT SPUN-VINOTIFY, SPUR_@_FLAGS(RO) 3; CLEAR NOTIFY FLAG 
15F 5318:  mOVW DCLSCRLF ,SPUN_W PRPTCTR (RG) 3; ASSUME /CONTROL 
1 BBC a R_V_NEGATESPTR V_FLAGS.R3.41$ ; IGNORE IF NOT /NOCONTROL 
cL SPUNWPRPTC RL (RE) 3; SET /NOCONTROL 
1 532$:  SETBIT SPUN_V_KEYPAD. SPUN W_FLAGS(R6) _; ASSUME /KEYPAD 
17 BBC #PTR-V“NEGATE-PTR S.R3,41$ ; IGNORE IF NOT /NOKEYPAD 
178 cLRBIT SPUN-VIKEYPAD .SPUR_@ GS(R6) ;"CLEAR KEYPAD FLAG 


ash 
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00'8F tt i : /INPUT? 
00' 8F R gfCL18k_SPAW_OUTP : /OuTPUT? 
00' 8F R gPCL18k_SPAU_PROC 3; /PROCESS_NAME? 
00° 8F ; R g{CeiSK_SPAW_CLI : /CL1? 
00'8F | A R gf CLISK_SPAU_TABL : /TABLE? 
00' 8F i 1A 8 giCL1SK_SPAW_PROM : /PROMPT? 
FF2 1a 40s 3 IF NONE OF THE ABOVE QUALS, IGNORE IT 
A SPWN_V_INPUT,SPWN_W_FLAGS(R6) ; ASSUME NO VALUE PRESENT 
02 54 91 OIA R4 ,#PTR_K_COLON 3 IS A VALUE PRESENT? 
F312 «2018 41$ : IF NOT, USE DEFAUL 
B SPUN_V_INPUT,SPWN_W_FLAGS(R6) : INDICATE VALUE PRESENT 
FEGS' 30 8 DCLSGETDVAL : GET /INPUT VALU 
20 Ab 31 70 BB Ri ,SPUN_Q_INPUT(R6) $ USE EXPLICIT INPUT STREAM 
C1 SPWN_V_OUTPUT,SPWN_W_FLAGS(R6) ; ASSUME NO VALUE PRESENT 
02 54 «(91 C6 R4 ,#PTR_K_COLON ; IS A VALUE PRESENT? 
ba 412 «O1C 41$ : IF NOT, USE DEFAULT 
¢ SPWN_V_OUTPUT,SPWN_W_FLAGS(R6) : INDICATE VALUE PRESENT 
FEgD* 30 D DCLSGETDVAL : GET /OUTPUT VALUE 
28 A6 i a p Ri , SPUN_@_OUTPUT(R6) : USE EXPLICIT OUTPUT STREAM 
02 4 91 0109 R4 .#PTR_K_COLON z IS A VALUE PRESENT? 
C8, Dc 4i$ : IF NOT, USE DEFAULT 
FEIF D DCLSGETDVAL : GET VALUE 
18 a6 651) 7DC*ODTEE R1,SPWN_Q PRCNAM(R6) : USE EXPLICIT PROCESS NAME 
os bas ; SPUN_V_PRENAM. SPUN_W_FLAGS(R6) : SET PROCESS NAME SPECIFIED 
E SPWN_V_CLI,SPWN_W_FLAGS(R6) ; ASSUME /NOCLI 
8253 00 €0 OIF #PTR-V“NEGATE-PTR-V_FLAGS,R3,41$ ; FLAG OK AS IS IF /NOCLI 
F SPWN-V~CLI,SPWN_W-FLAGS (RO) ; SET /CLI PRESENT FLAG 
FEDS fg DCLSGETOVAL 3: GET /CLI VALUE 
00C6 C6 HI F Ri SPUN_@_CLI(R6) : SAVE DESCRIPTOR OF CLI NAME 
SPWN_V_TABLE,SPWN_W_FLAGS(R6) _; ASSUME /NOTABLE 
9A 53 00 €0 BPTR-V-NEGATE-PTR-V-FLAGS.R3,418 ; FLAG OK AS IS IF /NOTABLE 
c SPUN-V"TABLE,SPWN-W-FLAGS(ROS =; ser {TABLE PRESENT FLAG 
FDEC’ 30 DCLSGETDVAL : GET /TABLE VALUE 
OOCE C6 51 2D 16 Ri , SPUN_O_TABLE(R6) : SAVE DESCRIPTOR OF TABLE NAME 
1 SPWN_V_PROMPT,SPWN_W_FLAGS(R6) ; ASSUME / T 
3053 €8 RS S348 : BRANCH IF SO 
SPUN_V_PROMPT.SPWN_W_FLAGS(R6) ; SET /PROMP 
0003 2 90 #OCLSC PROMPTLEN ~ : ASSUME NO VALUE SPECIFIED 
6 SPWN_B-PROMPTLEN(R6) ; 
op R4 : SAVE THE TERMINATOR 
00000000‘ EF 9009" F FOCLSC_PROMPTLEN DCLSCRLF,- : GET PROMPT STRING 
6 SPUN_W-PMPTCTRL (RG) ; 
BED0 C R4 t RESTORE THE TERMINATOR 
02 «(54 f R4,#PTR_K_COLON : IS A VALUE PRESENT? 


SPA spf Ttcpmocessine conmmwos — ° '  v¢-sep-t9gs 90:17:05 YAN/WA Macro vO4=O9 Page 


OF | 4 5 N 3 ; USE DEFAULT PROMPT 

oo Pe BR, Fitter, mnorcunes | HL Br seu 
( ; GET PROMPT STRING 

5338: BRW fy pam ’ 


: THE PARSING IS pote £- AND ALL OPTIONS ARE SET INTO THE SPWN 
‘ ; BLOCK. NOW PERFORM THE SPAWN OPERATION. 


hos: SBB ss UCL SSPAWN2 
juke OB 


; PERF ay THE SPAWN OPERATION 
: TEST FOR FAILURE OF SPAWN lyseuf 
; GET SUBPROCESS TERMINATION STATUS 


pon 
MDOAAAAOOWOS NEN 


w 
"os 
& mo 
m 
wWmno 
—oONn 
com— us 
WMoOwvo 
PPPS 


PPPS LL SSS 


90$: 


is 


= MUL 

SPAWN 
O1BC 8F BB 
0084 C b0 
ae 
roe 9 
OF A6 «95 
OA 19 
50 0c 
98 28 EF 
BB v0 


T1-PR 


WSSSSSSSS 


Fat at at ae et at ey Ui, ie Ue Ui Ne Ne Ne Ne MRM R MRR RRM 


Poe 
Oo 


ODNWWWAUWIWWAA TDAH HHAHBMMMMMMMMM wT 


SDDS DS DDD DED. DEUS 


SINNI 
a) ~ 1 ~) ~ 


NNNE TO 


own 


_ bawome, "SSEe=19RS BBEL5:95 PENS SB EAtN mans ome 


-SBTTL SPAWN A SUBPROCESS 


wo 
ow 


; THIS ROUTINE IS CALLED TO PERFORM THE ACTUAL CREATION OF THE SUBPROCESS. 
: INPUTS: 


Rg = ADDRESS OF SPWN PARAMETER BLOCK 
R11 = ADDRESS OF PRC AREA 


eh Rd 


OUTPUTS: 


R STATUS 
R= = PI INAL STATU US FROM COMPLETED a4 ae te 
SPWN_L_PI Th Re) = PID OF SUBPROCESS (IF NOWAIT FLAG SPECIFIED) 


CLSSPAWN2: : 
PUSHR #*M<R2,R3,R4,R5,R7,RB> 


: SAVE REGISTERS 


MAILBOXES Osten ARE CREATED HERE ARE CORRE C A ELETED Efe 
RESULT, WE MUST PERIODICALLY CHECK THE HANGUP FLA G IN taf SE A HANGUP 
1S DETECTED WHILE WE ARE OPERATING. 


MOVL oeG L_OUTOFBAND(R11),= 
PWR_C_OUTOF BAND (R6) 


CLRL 
BSBW DCLSRESETOOB 


SAVE OUT-OF -BAND ENABLE MASK 
DISABLE ALL OUT-OF-BAND AST'S 


PRE-CLEAR THE TERMINATION EVENT FLAG, IF ONE IS SPECIFIED. 
TSTB a aahataiees : EVENT rae SPECIFIED? 
BL RANCH IF NONE 
SCLREF_S EFN=SPWN_B_EFN(R6) ; PRE-CLEAR IT 


; SAVE THE PREVIOUS ACCESS MODE, FOR PROBING RETURN STATUS AND DELIVERING 
; TERMINATION ASTS. 


NAME AN 3 OOD NAME WIN OD OO NAME WI OS ODNAU EW O OONOU SU 


taltaltaltanalalealeat at at at at ot at nt ot ot 
e Fajre ec te ee 


Ww 


> FIND A TERMINATION MAILBOX SLOT AND INITIALIZE IT FOR THIS SUBPROCESS. 


$: MOVPSL RO : GET CURRENT PSL 
EXTZV Rosh PRVMOD.#PSLSS_PRVMOD.- ; EXTRACT PREVIOUS ACMODE 
MOVB ; SPWN_B_ACMODE (R6) : SAVE THE ACCESS MODE 

; ALLOCATE SOME SCRATCH STORAGE ON THE STACK (1 = 1/2 PAGES) 
MOVAB -768(SP),SP : ALLOCATE SCRATCH BUFFER ON STACK 
PUSHL SP : CONSTRUCT DESCRIPTOR OF BUFFER 
MOVZUL #768,-(SP) ; 
MOVL  SP,R6 : AND POINT TO IT 


wo 


RUS omOwD 
uw 


& Sess 


wom =—Oornn oO 


mo =u 
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suBsRoce SS pate ras Be shes fats Ty ve 
468 ; 
f 4 ASSUME TMBX_L_LINK Fa 0 : 
4 MOVAB PRC _C TMBX(R 1) -R? : GET ADDRESS OF TMBX BLOCK LIST HEA 
471 108: § MOVL MERC _LINK(R »,R7 + GET NEXT BLOCK IN LIST 
4 BNEQ : BRANCH IF NOT END OF LIST 
AD BSBW REATE _THBX + CREATE NEW MBX iF END OF LIST 
Mm Bho, 386 t EXIT IFeERROR’ One 
\ oe g 208:  CMPB Tigh_b_REFS(R7) #TMBX_CMAXREFS : DOES MBX HAVE ANY OPEN SLOTS? 
AD «47 BEQL «10 ! NO, LOOK AT NEXT MBX IN LIST 
AF OG? INCB TMBX_B_REFS(R7) : YES, GRAB ONE, INCR REFERENCE COUN 
ef 47 ; MOVW  § TMBX“WTUNIT(R7),SPWN_W_UNIT(R6) ; COPY THE UNIT NUMBER 
B? 4 ; : CHECK FOR KNOWN CLI°S TO WHICH TO PASS CONTEXT IF /CLI 
Bf 4 ¢ ; WAS SPECIFIED. 
Bf 484 ° MOVa = RB, = (SP) : SAVE WORK REGISTERS 
BA 485 BBC #SPUN_V_CLI,SPWN_W_FLAGS(R6),50$ ; BRANCH IF NO CLI WAS SPECIFED 
BF 4 6 VQ SPWN G CLI(R6),R2 : GET CLI DESCRIPTOR 
ce 4 MOVAB CLI_RAME,RS + GET TABLE ADDR. OF KNOWN CLI'S 
4 4 } 21$ MOVZBL (RB),R9 : EXTRACT LENGTH 
c¢ 43 BEQL 40S : IF EQ, SPECIFIED CLI NOT KNOWN 
cE 49¢ mova —_ —R2, = sp) : SAVE DESCRIPTOR 
D1 49 CMPCS R2, (R3) ,#0,- : COMPARE TO THIS TABLE ENTRY 
D5 49% R9,1(RBS 
08 498 pea «= 45 : If €Q, THIS CLI IS KNOWN 
DA 499 MOVa (SP) + R2 : RESTORE DESCRIPTOR 
D 498 MOVAB 1(R8)ER9],R8 : SET UP TO CHECK NEXT ENTRY 
: 499 BRB 21$ : CHECK NEXT TABLE ENTRY 
Es 1 40S: SeTBIT SPUN, V_NOCTX, SPUN_W_FLAGS(R6) : DON'T SEND CONTEXT TO FOR THIS CLI 
EB $ 45$:  MOVQ  (SP)+,R2 : RESTORE STACK 
EE . 505 : PROPAGATE EITHER THE SPECIFIED CLI AND TABLE NAMES OR THE DEFAULT NAMES TO 
HE ; THE SPAWN CLI AND TABLE SPECIFICATION TABLES. 
E 8 S0$: MOVZWL SPWN_Q_CLI(R6),RB : GET LENGTH OF CLI NAME, IF SPEC. 
F MOVZWL SPWN7Q~ TABLE (R6) ,R9 GET LENGTH OF TABLE NAME, IF SPECI 
F BBC #SPUR_0_TABLE,SPUN_W_FLAGS(R6) ates : SKIP IF NO TABLE SPECIFIED 
F BBC #SPUN-V"CLI,SPWN_W-FCAGS(R6),216$ ; SKIP IF NO CLI SPECIFIED 
3 ; BOTH CLI AND NAME WERE SPECIFIED 
15° MOVB R8,G*CTLSGT_SPAWNCLI : SET SIZE FIELD 
rf MOVC RB, @SPUN_ cLieatng - : MOVE CLI SPECIFICATION 
§ 2! G*CTLSGT-“SPAUNCL I+ 
18 214$: MOVB R9,G°CTLSGT SPAWNTABLE : SET LENGTH OF TABLE NAME 
1A 51 mOVC @SPUN_Q TABL acne). : COPY TABLE NAME 
F Go TLSGT_SPAWNTABLE® 
6 BRB 28$ 
é § ; JUST TABLE NAME SPECIFIED 


i: 
2 


06 «11 
19 90 : 
GF 
er a 
1°GF 
A 11 


"Ob 90K Re 


G*CTLSGT_CLINAME ,R8 : 


vc eas 
GT_SPAWNCLI 
setter ~TABLENAME.,R R8 


G*CTLS$GT_TABLENAME,- 
eet L$GT _SPAWNTABLE 
MOva  (SP)+,R8™ 


Seeeee 
~ 
co 
e 


SCREMBX S CHAR=SPWN_W_CHANTRS) ,- 
“MAX xne6= G=#CTX_C"MAXLEN 


230$:  B8LBC RO.9 


; GET THE NAME OF THAT MAILBOX USING SGETDVI. 


CLRL = (SP) 
PUSHAB SPUN _Q_MBXNAM(R6) 
mova (RB) 7 TSP) 

MOVW avis DEVNAN, 2(SP) 


MOVL 
SGETOVIW.S CHAN=SPWN_W_CHAN(R6) ,- 


API @§ SO OONAUE WO OD NAUVOO NAUE 
<= 


DPAEAPEDPLDPLD PASSA PEL LLL EE 


=SPWN_Q 1OSB(RG), ° 
ett +i} EXGst SVS Sys 
7 ADDL He us 
7 BLBC saat, 
7 MOVZWL SPUN Q_IOSB(R6) RO 
as BLBC  —s- RO, 95S 
76 ; 
oS i 3 SAVE THE NAME OF THE COMMUNICATIONS MAILBOX IN 
T ILBOX NAME FROM 


oe 3 DEALLOCATE SPACE FOR THE 


MA 
4(R8) SPWN_Q_MBXNAM+4 
SPWN_G_MB KRAMCRG (RB 


a sub 


3 INCLUDE LENGTH BYT 
TLSGT_CLINAME,- 3 COPY CLI NAME 


; GET LENGTH OF TABLE NAME 
; INCLUDE LENGTH BYTE 
TABLE NAME 


J 12 
“PROCESSING COMMANDS 16-SEP- X/VMS Macro V04 Page 1 
SUBPROLESS oo$EP= 1984 29:45:90 EDEL sac TSPAUNS MAR, we 
5 2168: tiie GaCTLSGT_CLINAME .RB : GET LENGTH OF CLI_NAME 
Re : IN LUDE LENGTH BYTE 
nove GET PGE AGLIMANE.~ ; GET DEFAULT CLI NAME 
g ETLSGT_SPAWNCLI 
; BRB ; NOW TRANSER TABLE NAME 
; NO TABLE NAME SPECIFIED. CHECK IF CLI NAME SPECIFIED 
2188: BBC ASPUNY rCkEgSPWNAM,FLAGS(RG).2208 ¢ SKIP IE CLI NOT SPECIFIED 
CLRB «GACT Users WNTABLE ; ZERO TABLE SPECIFICATION 
nove Hae 16°C Filsere esPAWNcL ; SET SIZE FIELD 
move 144(R6) ,= ; MOVE CLI SPECIFICATION 
esti ser. SPAWNCLI® 
BRB 
NEITHER CLI OR TABLE SPECIFIED. JUST COPY DEFAULTS 


GET LENGTH OF CLI ~~ 


COPY 
RESTORE WORK REG. 


; CREATE A COMMUNICATIONS MAILBOX TO COPY THE CONTEXT TO THE SUBPROCESS 
#SPWN_V_NOCTX,SPWN_W_FLAGS(R6), 228; 


BRANCH IF UNKNOWN CLI WAS SPECIF 
; CREATE COMMUNICATIONS MAILBOX 


: BRANCH ON ERROR 


CREATE GETOVI ITEM LIST 

ADDRESS OF le ye RECEIVE LENGTH 
SET DESCRIPTOR OF BUFFER 

REQUEST COMPLETE DEVICE NAME 


GET MAILBOX DEVICE NAME 


POP GETDVI ITEM LIST 
BRANCH IF ERROR DETECTED 
GET 10SB STATUS 

BRANCH IF ERROR DETECTED 


THE SPWN BLOCK. 
THE SCRATCH STORAGE. 


: SET ADDRESS OF BUFFER 
; MARK DEVICE NAME NO LONGER SCRATCH 


50 eceseeré SF 


CA 


02.59 
er 30 


7E 
48 A6 
03090004 8F 


7 
ouraooke of 


comes CRIN MIESS ECT tare ts 


ADOL SPWN_Q_MBXNAM(R6) ,4(R8) 3 


: CREATE AN ATTACH MAILBOX TO HANDLE RE-ATTACH REQUESTS TO THIS PROCESS. 


52s:  BSBW CREATE ATTMBX : CREATE OUR ATTACH MAILBOX 
BLBS ; BRANCH IF SUCCESS 
95$: BRW SPkaa EXIT : BRANCH IF ERROR DETECTED 


IF /NOTIFY WAS SPECIFIED, CHECK THAT IT IS ALLOWED. 

BBC #SPUN_V_NOTI ; SKIP IF /NONOTIFY 
SPUN _@ FLAGS (n ’, 30$ 

MOVL ais, Not ASSUME NOTIFY NOT ALLOWED 

BBS #PRC 9 RODE YER -¥FLAGS(R11), 95s! ai. ALLOWED IN BATCH JOBS 


BBS #SPUR Ow ALLOWED IN /WAIT JOBS 
SPWN_@ “FLAGS(R6), 95$ : 


Fayre Gece 
wa 
ad 


SELSREURAS SONAR ERS on 
~O wooo MEUM Om 


: CHECK THAT COMMAND STRING IS NOT TOO LONG. 


Sos: mov #CLI$_BUFOVE,R 
sby n_G PERDSTACRG) WWURK_C_ insur siz” 
SeTRU : BRANCH 


SSUME COMMAND BUFFER OVERFLOW 
-_, STRING TOO LONG? 


CHECK THAT PROMPT STRING IS NOT TOO LONG. 


MOVL #CLI$_STRTOOLNG,RO 
CMPB SPUN _6_PROMPTLEN(R6) ,- 

#ENT_K_MAX_PROMPT+ 
BGTRU 95$ 


Se tet, 


ASSUME PROMPT IS TOO LONG 
PROMPT STRING TOO LONG? 


BRANCH IF SO 


PROCESS THE INPUT AND OUTPUT STREAMS. 


ee 


BNP MALU 9S OOD NAULS WN O OOD NAUE WN O OONAULS WINS 
@o 


$s VERT EY. INPUT 3 VERIFY INPUT STREAM 
.BLBC : BRANCH IF ERROR 
BSBW WEA LEY. OUTPUT : VERIFY OUTPUT STREAM 
BLBC : BRANCH IF ERRO 


3 DETERMINE BASE PRIORITY FOR NEW SUBPROCESS FROM CURRENT BASE PRIORITY 


CLRQ =(SP) : CREATE eerie ITEM LIST 
PUSHAL SPWN_L_PRIB( ne) ; SET BUFFER ADDRESS 
PUSHL #JPIS_PRIBA16+4 ; REQUEST CURRENT BASE PRIORITY 


DETERMINE CURRENT IMAGE COUNT (FOR USE BY TERMINATION AST) 
CLRL =(SP) 3 NO a A wtit tis 


PUSHAL SPWN_L_IMAGCNT(R6) ; >; SET BUFFER ADDRESS 
PUSHL #JPIS_ TRAGECOUNTS16+4 : REQUEST CURRENT IMAGE COUNT 


DPA AAAAAAAAAA AA AAAA AAA AAAAAAA SO 
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PAAAAAASO 


SN 


: INSERT THE CURRENT SPWN BLOCK INTO THE LINKED LIST OF PENDING SUBPROCESSES, 
; $O THAT IN CASE THE SUBPROCESS DIES WHILE WE ARE ATTEMPTING TO FEED IT 
: CONTEXT, THE SUBPROCESS TERMINATION AST ROUTINE CAN DO SOMETHING ABOUT IT. 
SETBIT SPUN v ACTIVE SPWN_W_FLAGS(R6) ; MARK BLOCK CURRENTLY "ACTIVE" 
09 MOVL C_C SPWN(R11) SPONZL_LINK (R6) : INSERT INTO LINKED LIST 
D MOVL Ree “pat'L _SPWN(RI1) : PASS ADDRESS OF SPWN TO TER ml NATIO 
t AST, SO WE CAN FIND OUT IF IT DIES 


044A 3 DETERMINE CURRENT VALUES OF = DUCTIBLE QUOTAS, AND CREATE A QUOTA 
DaoA zl uf Outen WILL BE USED TO SE QUOTAS OF THE SUBPROCESS. 
9 044A MOVAB sun G_QUOTAS(R6) .R3 3 GET ADDRESS OF SPACE FOR LIST 
Be 4 cual srt : NO eit EN ADD RESS 
V o L$ ASTLM, (R3)+ : SET TYP CODE if POL LIST 
DF PUSHAL (R : SET BUFFER ADDRESS 
DD § PUSHL #JPIS_ASTLM@16+4 : REQUEST CURRENT ASTLM 
bs a CLRL. = = (SP)~ 3 NO RETLEN ADDRESS 
MOVE #POL$_BIOLM, (R3)¢ 3 SET TYPE CODE IN PQL LIST 
DF PUSHAL (R3)¢ : SET BUFFER ADDRESS 
DD PUSHL #JPI$_BIOLMa16+4 : REQUEST CURRENT BIOL 
4 CLRL. 0 = (SP) : NO RETLEN ADDRES 
A ; v8 #POL$_DIOLM, (R3)+ 3 SET TYPE CODE IN PQL LIST 
DF D PUSHAL (R3)¢ : SET BUFFER ADDRESS 
DD F 4 PUSHL #JPI$_DIOLMa16+4 : REQUEST CURRENT DIOLM 
D4 3 CLRL. = = (SP) : NO RETLEN ADDRESS 
0 047 : VB #PQL$_WSDEFAULT, (R3)+ 3 SET TYPE CODE IN POL LIST 
DF 047A PUSHAL (R3)¢ : SET BUFFER ADDRESS 
DD 047 8 PUSHL #JPIS_DFWSCNT@16+4 : REQUEST CURRENT WSDEFAULT 
4 4 65 CLRL = (SP) : NO RETLEN ADDRESS 
4 660 MOVE #PQL$_WSQUOTA, (R3)+ : SET TYPE CODE IN PQL LIST 
DF 0487 1 PUSHAL (R3)¢ 3 SET BUFFER 
DD 0489 : PUSHL #1P1s _WSQUOTAQ16+4 : REQUEST CURRENT WSQUOTA 
DS 048F CLRL : NO RETLEN ADD 
90 0491 vB sacs _WSEXTENT, (R3)+ 3 SET TYPE CODE IN PQL LIST 
DF 0494 665 PUSHAL (R : SET BUFFER 
D 0496 6 $ PUSHL APIS _WSEXTENT@16+4 : REQUEST CURRENT WSEXTENT 
49C HOVE #POLS$"LISTEND, (R3)+ : TERMINATE PQL LIST 
D 9 6 8 SP,R : GET ADDRESS OF ITEM LIST 
A 66 See tupiw S° ITMLST=( : GET CURRENT QUOTA VALUES 
A2 670 TOSB=SPWN_Q 1O36(R6) : 
A 1 EFN=#EX Est. SYSEFN : 
CO O4BA 3 ADDL #821244, : POP ITEM LIST 
4 
? 
4 
5 


3 CONSTRUCT THE PROCESS NAME OF THE FORM <USERNAME>_1. THE TRAILING 
; NUMBER WILL BE INCREMENTED UNTIL WE FIND A UNIQUE “PROCESS NAME. 


MArAWOOUMIOOCOCOOCOOD Ot 


\~,-4,~-4-4-4~-4-4-4-4-4 4 4 4 hell lll ll 


£0 BBS #SPUN_V : BRANCH IF /PROCESS GIVEN 
SPUN Q VFLAGS (RE) , SPAWN_PROCESS ; 
D0 MOVL #1,R% 7 : START WITH POSTFIX #1 
iH CONSTRUCT_PRCNAM: 
9 MOVAB SPWN_Q_PRCNAM(R6) ,R3 : GET ADDRESS OF DESCRIPTOR SPACE 
D 34 CLRL = (SP py ~ : MARK END OF JPI LIST 
DD PUSHL R : ADDRESS TO STORE RETURN LENGTH 


NG COMMANDS 


ROCESS 


= MULTI-PROC 
SPAWN A SUBP 
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SSING COMMANDS 16-SEP-1984 00:17: AX/VMS Macro V04- Pp 1 
4 £38 $78 b= 1382 99:15:93 YOCLV SRCTSEAGN MARS mer tg 

15$: MOVB SPWN_Q_PRCNAM(R6),- : GET LENGTH OF PROCESS NAME 
SPWN-T-PROCESS (R65 : . ee 
MOVC3 SPWNO PRENAMCRG) - + COPY THE NAME 
PUR_G PRCNAM+ (Ro) .= : 
PWN_T_PROCESS+1(R6) 3 


WRITE /LOG MESSAGE INDICATING PROCESS WAS CREATED 
BBC #SPWN_V_LOG,- ; BRANCH IF /NOLOG SPECIFIED 
SPWN_@_FLAGS(R6) : 
3 ADDRESS OF PROCESS NAME 
; SET NUMBER OF ARGS 


PAEQPEMNSNINTION 
Setete 


WI —OOONOULSW Ow 
an 


. 208 
PUSHAB SPWN-Q-PRCNAM(R6S 
MO SE 

MESSAGE CODE 


MOVL #CLI$_SPAWNED,RO 
BSBU DCLSFORMMSG OUTPUT MESSAGE 


T /LOG THEN WRITE MESSAGE INDICATING SUBPROCESS ATTACHED. 
gy WE WRITE THE CONTEXT, WHILE WE STILL HAVE CONTROL OVER 


50S: BBC #SPWN_V_WAIT,- 
SPWN_@_FLAGS(R6) ,30$ 


L - 
SPWN_@_FLAGS(R6) ,30$ 
PUSHAB SPWN-Q"PRCNAM(R6S 


1, 
MOVL #CLI$_ATTACHED,RO 
BSBW DCLSFORMMSG 


SKIP IF /NOWAIT 

; SKIP IF /NOLOG SPECIFIED 

; ADDRESS OF PROCESS NAME 
SET NUMBER OF ARGS 

; MESSAGE CODE 

OUTPUT MESSAGE 


IT 


cc 
ma 
zm 
o +2 


onrent TO SUBPROCESS VIA MAILBOX. IF _AN ERROR OCCURS AT THIS POINT, 


ST DELETE THE PROCESS TO AVOID HAVING IT HANG AROUND FOR NOTHING. 


Cab e Oe Ge te 
=] 
aw 
eo 


#SPWN_V _NOCTX,SPWN_W_FLAGS(R6),35$; BRANCH IF UNKNOWN CLI WAS SPECIF 


QE ARRAS SONNE UN HO GOS OULU Ooo eee 
@ 
oo 
o 


BS A 
. BSBW welTe CONTEXT 3; WRITE CONTEXT TO SUBPROCESS 
BLBS RO, 358 3 BRANCH IF OK 
PUSHL R 3 SAVE WRITE STATUS 
SDELPRC_S PIDADR=SPWN_L_SUBPID(R6) : DELETE THE SUBPROCESS 
CMPL PWN_L_STATUSTRE) ,#1 : GET TERMINATION STATUS 
BLEQU § : USE _IT_IF ys | ta 
MOVL SPWN_L_STATUS(R6) , (SP) : _(NEQ TO 0 OR 1) 
32$: POPL R 3 RESTORE STATUS COD 
BRB 60$ 3 SIGNAL THE ORIGINAL ERROR, OR THE 
; SUBPROCESS ABNORMAL STATUS (IF ANY 


> > ee ee ee ee PP >_> >, 


BR ANG PAE Ot tet tet tr eet ERP PRR RP WS eS 


¢ CLEANUP CONTEXT MAILBOX, TO ELIMINATE POOL USAGE AS SOON AS POSSIBLE. 


$5$:  SDASSGN_S_CHAN=SPUN_W_CHAN(R6) ; CLEANUP MAILBOX (THUS, POOL USAGE) 
CLAW “SPUN W_CHANTRE) : INDICATE CHANNEL WAS “REMOVED 
MOVL = #1, RO : IGNORE STATUS FROM DEASSIGN 

; WHILE WAITING FOR RE-ATTACH 


; CREATE /NOWAIT SUBPROCESS. 


SOoOoooooooo 
DBDONOULWN OO 
Settee 

@etes 


4 


28 68 AB 96 ce 
50 8ED0 


= MULTI-PROC 
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OtESs Breer] obs 99:15:93 PAX/ Wes Bacto VOKee meget 
MOVL ¢ SET NORMAL TERMINATION STATUS 
a3huNv : BRANCH IF /NOWAIT 
anetAcstne, 9000$ ; 
BRW Ha AWA JE 


; CREATE /WAIT SUBPROCESS. 


BBC #SPUN_V_ACTIVE 
SPWN nO Flac 5 (RG) 6 
SETBIT PRC_Y “BETAC CHED, UP a . FLAGS(R11) : 


= 
3 


$al0w_s FUNC=H 108 SETMODE | 108M WRTATIN, =" 
CHAN=PRC_@_ATTMBX(R11),- 
EPNcaE NE SC SYSERNe 
10SB=(RO) 


PI=ATTACH_AST,=- 
. =R11 


ADDL #8, SP 
SHIBER_ 
BBC ~ SPUN V 

PUNO FLAGS(RG), 55$ 
BBS fpnc v CHED ,- 


PRC_@_FLAGS(R115,5 
CLRBIT PRC-V“DETACHED, phe % _FLAGS(R11) 


HAVE RETURNED FROM THE SUBPROCES 
IS PROCESS OR VIA SUBPROCESS TERM 
TPUT THE RETURNED MESSAGE. 


BBC #s 


PUSHL 
BSBW 
POPL 


S EITHER 
INATION. 


erm 


Qeee 
So 
A 


PUN O\FLAGS{R6).708 
RETURNED _MESSAGE 


— 


F WE 
NOW OWN THE TERMINAL. 


BBS 


WP eo Ge Sete 
a 
? 


Q at yp 113,- 


“ CHECK FOR HANGUP AST 


; WAIT FOR SUBPROCESS TO RETURN CONTROL HERE (VIA 
Sos:  8SBW CHECK _FOR_HANGUP 
MOVAQ 


VIA 
IF 


ARE IN AN_INTERACTIVE PROCESS, THEN TELL THE TERMINAL DRIVER THAT 


BBs #PRC_V_MODE ,PRC_W_FLAGS(R11) ,80$; SkIP IF uhOT INTERACTIVE 
$Qiow_s tha SETMODE! 10$M_TT -pracess, - 


= SPUR a] R6),° 3 
EPNcaeXesC. SHSEEN 3 
POPL RO : RESTORE FINAL STATUS 
: IF THIS IS A _RE-ATTACH THEN SKIP DATA STRUCTURE AND MAILBOX DEL ETIONS AND 
; SET NORMAL TERMINATION STATUS. OTHERWISE, SET THE RETURNED TERMINATION STATUS. 


3 : ADDRESS OF AST ROUTINE 


AN 
; HIBERNATE WAITING FOR WAKEUP 
; BRAN ce IF S 


; : BRANCH IF PARENT STILL DETACHED 


MARK THIS (PARENT) PROCESS DETACHED FROM TERMINAL. 
; BRANCH IF INACTIVE FS emacs 


ALREADY TERMINA 
? MARK PROCESS DETACHED 


ATTACH OR TERMINATION) 
; ALLOCATE A A TEMP. I0SB 
: SET ATTENTION AST ON MAILBOX 


; PASS ADDRESS OF CLI STORAGE 
; CLEAN UP STACK 


: MARK PROCESS ATTACHED TO TERMINAL 


A RE-ATTACH REQUEST TO 
/LOG WAS SPECIFIED, THEN 


BRANCH IF /NOLOG SPECIFIED 
Sa FINAL STAT 


US 
WRITE MESSAGE SAYING WE HAVE RETUR 
RESTORE FINAL STATUS 


AVE FINAL STAT 
¢ ASSUME TERMINAL OWNERSHIP 


i 


ya 


5E 


ee 
O18F 8F 


03 0C 13 


so °' fe 


$6 


PAAASAOSC 


C1 


9 

95 108: BSBW DELETE_A 3 DELETE THE ATTACH MAILBOX 

9 me $ CHAN SPUN y CHAN(R6) 3 DEASSIGN CONTEXT MAILBOX CHANNEL 
9 “SPWN_W_CHANTRO) : INDICATE CHANNEL WAS "'REMOVED’* 


1-PROCESSING COMMANDS 1 :17: AX/VMS fe ro V04- P 18 
iSugenocees gree 1 oe 9:45:93 POAC ES Bacco, vote er 
80S:  MOVL Hl ght ¢ SET NORMAL TERMINATION STATUS 
; BBS ACTIVE, - + BRANCH IF CONTROL RETURNED 
4 Na’ fA GS (RS R RESTORE. CONTEXT: VIA A RE-ATTACH 
: f MOVL § SPWNTL“STATUS(R6S, : GET TERMINATION STATUS 
73; 
74 ; THE SPAWN COMMAND 1s ESSE ENTIALLY COMPLETE. WE HAVE RETURNED CONTROL HERE 
: 75 : DUE TO SUBPROCESS ERMINA TION. THERFORE, CLEANUP MISC. DATA STRUCTURES AND 
id: ; MAILBOXES AND REPORT ANY ERRORS WHICH WERE DETECTED. 
78 : IF SUBPROCESS WAS asyCcessrutey SPAWNED AND TERMINATED, THEN TMBX WAS 
79 : DELETED BY THE TERMINATION AST. IF NOT, TRY TO DEASSIGN THE MAILBOX AND 
é ; DELETE THE DATA STRUCTURE HERE. 
Q SPAWN EXIT: 
6 mova RO, =( SP) : SAVE ERROR AND TERMINATION STATUS 
4 BLBS RO, 108 + BRANCH IF SUCCESSFUL SPAWN 
5 BBC #SPUN_V_ACTIVE,- t DID SUBPROCESS TERMINATE? 
$ SPWN_@_FLAGS (R64), 108 : IF SO, TERMINATION MBX TAKEN CARE 
6 DECB = TMBX"B-REFS(R7) + DECR REFERENCE COUNT TO MAILBOX 
8 BNEQ 10$ : BRANCH IF STILL OUTSTANDING USES 
89 BSBW DELETE_TMBX + DELETE TERMINATION MAILBOX 
91 
9% IN ALL CASES, DELETE THE ATTACH MAILBOX AND DEASSIGN THE CONTEXT MAILBOX 
33 CHANNEL. 
3 
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es | 
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: IF /WAIT, THEN DEALLOCATE THE SPWN BLOCK. 


0 
§ BBC aunt ; BRANCH IF /NOWAIT 
OPFLAGS {RGD 20$ : 
4 BSBW SEA EALCO Cs : REMOVE INACTIVE SPWN BLOCKS 
5 208: MOVa (SP)+ i 3; RESTORE ERROR AND TERMINATION STAT 


so eaNe 


: IN ALL CASES, RESTORE THE PROCESS STATE = 
; STACK, EVENT FLAGS, CONTROL KEY AST’S, SPAWN STATUS, TERMINATION STATUS, 
} ; AND SAVED REGISTERS. 

gig RESTORE _CONTEXT: 

91 “MOVAB peests) .SP : POP SCRATCH STORAGE OFF STACK 
1 mova : SAVE ERROR AND TERMINATION STATUS 
1 SPW L .OUTOFBAND(R6) R1 : RESTORE OUT-OF-BAND ENABLE MASK 
1 Bsou he RESEY t RESTORE AST'S 
POPR #F<RO,R1,R2,R3.R4,R5,R7,R8>  : RESTORE REGISTERS 
19 ; 

: IF A HANGUP IS PENDING, THEN ABORT PROCESS 
; ? BBC #PRC_V_HANGUP : IF SET, HANG-UP PENDING 
PR:_@ “FLAGS(RI1), 20$ 3 


-—_— 


174) 
: 


so a 


“OR Be 


S 
s 


+39 4 
CCLSABORT 
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AX/VMS acre oF. Pa 19 
DCL. SRCJSPAWN ~ 4 


; POP TWO PC'S ove THE STACK 
£06, THE PROCESS OUT 


E 13 
= MULTI-PROCESSING COMMANDS 16-SEP=1 AX/VMS Macro V04- Pa 
PROLESE SPAN THPUT STRE AR pate rae a rae fat tT ee 29, 
.SBTTL PROCESS SPAWN INPUT STREAM 
1 ; 
3 THIS ROUTINE IS CALLED TO PROCESS THE SPAWN INPUT STREAM. 
4 ; ; INPUTS: 
fi 5: R6 = ADDRESS OF SPAWN BLOCK 
1 § : RB = DESCRIPTOR OF SCRATCH AREA 
a1 ; R11 = ADDRESS OF PRC AREA 
4 3 ; OUTPUTS: 
71 41: RO = STATUS CODE 
710 94g jane 7 
71 4 
4 44 V VERIFY_INPUT: 
71 346 i ? DETERMINE IF AN AUTOMATIC LOGOUT SHOULD OCCUR AFTER EXECUTION OF THE 
71 47 ; COMMAND STRING. IF ONLY THE COMMAND STRING WAS SPECIFIED, THEN LOGOUT 
71 248 : AFTER IT IS EXECUTED. IF BOTH THE COMMAND STRING AND /INPUT WERE SPECIFIED, 
4 $35 ; THEN CAUSE THE COMMAND STRING TO BE EXECUTED FIRST, FOLLOWED BY THE /INPUT 
71 $1: : 
0A €0 071 3 BBS #SPWN_V_INPUT,- : IF INPUT SPECIFIED 
15,06 AG 71 5 SPUN _@ FLAGS (R6) ,10$ ; KEEP AUTOLOGUT FLAG OFF 
30 A6 F921 CF QA 071 54 MOVZBL SYSSINPUT,SPWN_Q_INPUT(R6) 3 USE ‘’SYSSINPUT 
4A6 FOIC CE 9 718 929 MOVAB SYSSINPUT*1,SPQN-Q_INPUT+4(R6) ; 
30 A6 é 7 36 TSTW SPUN -G. CHDSTR(ROT : ANY COMMAND STRING SPECIFIED? 
04 724 95 BEQL 108 : NO, DO NOT SET IMPLIED LOGOUT 
7 6 938 SETBIT SPWN_V_AUTOLOGO,- : YES, SET IMPLIED LOGOUT FLAG 
7 5 SPWN-W~FLAGS (ROS : 
he 
72A is 
, A 96¢ : CHECK THAT INPUT FILE SPECIFICATION IS NOT TOO LONG. 
50 00038209 BF 00 079A 964 10$:  MOVL _—ACLIS_INVFILSPE,RO ; ASSUME INVALID FILE SPEC 
20 a6 «6B1 «C0731 = s«(965 CMPW SPUN G_INPUT (R65 ,- : NAME TOO LONG? 
OOFF ar 7 4 AMSC"MAXRSS : 
1A ? z oh BGTRU oye : IF SO, EXIT WITH ERROR 
739 
739 ae : ALLOCATE FAB AND NAM BLOCKS AND THEN SPARSE THE INPUT FILE SPECIFICATION. 
SE FFSO 5 3 72° MOVAB -FABSC_BLN-NAMSC_BLN(SP) , SP : ALLOCATE FAB AND NAM BLOCKS 
2¢ 07 37 movcS #0 (SP + ZERO FAB AND NAM 
6E F 7% 7% #F ABSC “BLNSNAMSC _BLN, (SP) ; 
4 5€ po 74 75 MOVL SP $ GET BASE OF FAB 
55° 50 A4 149 id MOVAB FABSC_BLN(R4) RS : GET BASE OF NAM 
74D «97 ASSUME BLN EQ FABSB_BID+1 : INIT FAB 
5003 8F 80 d74p 8 mOVW sr ARSE geoectAB C_BLN@8>,- ; SET FAB 1D 
07 ; ° SETBIT A v mah FOP(R4) $ USE PROCESS 1/0 SEGMENT 
it 2M aR Re Re eis artis PiatFatthay| SPECT Vike 
35 AG FSFB CF 076 MOVE COM, FAS $ SPECIFY DEFAULT FILE TYPE 


is 


3 Mo IS 


6002 8F 

08 AS 
pa & FF SF 
CAS (046 AB 
08 50 
SE cE 
€8 


* Sie 
04 
ASG 


40 

OA6 3S9A 

4A6 4448 
0085 


5E 


08058 


0c A 
so Bisten 
ee 


40 40 A4 900 


PROCES 


06 
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“PROCESSING COMMANDS 16-SEP= 217: AX/VMS Macro v04 
SPAWN INPUT STREAM $736 0- 1382 90:15:93 DCL. SRCJSPAWN.MAR; 
7 MOVAB COM+1,FABSL_DNA(R4) : 
p VL «RS, FABSL_NAACR4) ¢ SPECIFY NAM BLOCK ADDRESS 
ASSUME WNAMSB_BLN EQ NAMSB_BID+1 : INIT NAM 
MOV BNARSC OB Ds <cARSC BLNGE>,- : SET NAM ID 
MOVB GNARER, NOCCNCEAL NAMSB_NOP(RS) : GET PAST DOUBLE UNDERSCORES 
A MOVE &#NAMSC"MAXRSS NAMSB_ESS(R5) 3 SPECIFY RESULT BUFFER 
f f MOVL  4(R8) ,RAMSL_ESA(R ; 
: SPARSE FAB=(R4) 7 PARSE THE FILE SPEC 
BLBS RO, 308 : CONTINUE IF SUCCESSFUL 
998 208: MOVAB FABSC_BLN*NAMSC_BLN(SP) , SP ; DEALLOCATE FAB AND NAM 
133) : ©BRW 95 : EXIT WITH ERROR 
1001 ; 
1002 ; PROCESS NON-PPF INPUT HERE. IF NOT RECORD-ORIENTED, THEN USE EXPANDED 
1003 ; STRING AS INPUT, DO A $SEARCH FOR THE FILE, AND SET SILENT LOGOUT FLAG. 
, 3 IF RECORD-ORIENTED THEN USE DEV FIELD AS INPUT. 
1006 $0$:  8BS #NAMSV_PPF WAMSL_FNBCRS) . 50S : BRANCH IF PPF FILE 
1790 1 MOVZBL WNAMS$B_ESL(RS),R : GET LENGTH OF RESULT STRING 
D7A1 1 : SUBL RO, (RB) ¢ PERMANENTLY REMOVE RESULT 
D7A4 1 ADDL RO, 4 (RB) ; __ FROM SCRATCH AREA 
Ags 1 BBC DEVSV_REC,FABSL_DEV(R4),40$ § : BRANCH IF NOT REC-ORIENTED 
1 MOVZBL $B_6 VERS) « SBGN_@_ INPUT (RG) : USE DEVICE AS INPUT 
1 MOVL AMSL—DEV(R5) . SPWN-Q~ INPUT +4 (RO): 
1B BRW 56$ ¢ PROCESS AS PPF DEVICE 
D7BA 1 3 
078A 1 5 3 INPUT IS A_NON-PPF NON-RECORD-ORIENTED DEVICE. $SEARCH FOR THE FILE. 
078A 1017 ; IF FOUND, THEN USE THE ESS AS SYSSINPUT. ALSO, MARK THE PROCESS AS 
p7BA } 4 3 NON- INTERACTIVE. 
7BA 1 9 408:  SSEARCH FAB=(R4) : SEARCH FOR THE SPECIFIED FILE 
c3 1 BLBC ~=—_« RO, 20 : BRANCH IF NOT FOUND 
7C6 1 ; MOVZBL NAMSB_ L (RS) . SPWN_G_INPUT (RG) : USE ESS AS INPUT FILE SPEC 
1 MOVL NAMSL~ESA(RS) . SPWN-Q~ INPUT+4(R6): 
1024 SETBIT SPWN_0_MODE,SPWN WFCAGS(R6) : SET NON-INTERACTIVE SUBPROCESS 
1025 45$ MOV FABSC_BLN*NAMSC_BLACSP) ,SP ; DEALLOCATE FAB AND NAM 
1709 1 $ BRW 90$ t DONE WITH PARSING 
D70C 1 
f i ; INPUT IS PPF. IF FROM A RECORD-ORIENTED DEVICE, DO $GETDVI TO Ger 
D70€ +1030 ; THE DEVICE NAME. OTHERWISE, 1) IF EXPLICITLY SPECIFIED THEN RETURN AN 
De 1031 : ERROR, 2) IF INTERACTIVE PROCESS THEN USE Te TERMINAL AS INPUT, 3) IF 
Dre | : NON-INTERACTIVE PROCESS THEN USE NL: AS INPUT. 
Sos: BBC @SPWN_V_INPUT, SPWN_W_FLAGS(R6),52$ ; SKIP IF IMPLICIT INPUT 
MOVL sclis SPUNIO,R ; sume LLEGAL INPUT FILE 
ree § BBC #DEVSO_REC,FABSL_DEV(R4),20$ § : ERROR IF NOT REC-ORIENTED 
D7ED 1 3 
a7ED ' : PROCESS LEGAL NON-RECORD-ORIENTED PPF INPUT. 
D7ED +1041 528: BBS #DEVSV_REC,FABSL_DEV(R4),56$ | ; BRANCH IF REC-ORIENTED 


F 13 
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6 13 
SPAWN = MULTI-PROCESSING COMMANDS 16-SEP- AX/VMS acro ro VO4 Pa 
¥04-000 OLESS SPAUN THPUT STRE AR yams es i ee ees a ty we 4, 
37 1 BBS #PRC_V_MODE PRC AGS(R11),53$; BRANCH IF NOT INTERACTIVE 
51 28° 5 1 MOV ICTLSAG, OOF OR TASPPD T OF POVE AT : GET ADD ESS F ASCIC DEVICE NAME 
1 OO ‘ OV BL ; cet LENGTH 0 DEVI lé 
04 88 3 $04 1046 ROVCS nS if a ; COPY STRING TO SCRATCH AREA 
B09 1 MOVE + ADD COL END OF STRING 
4 D O80C 1 mova tsp +, > RESTORE R4/ RS 
D6 OB80F 1 INCL R : ADD LENGTH OF A COLON 
20 A6 DO Of l 1 MOVL «=o 4 Q_INPUT(R6) : SAVE DEVICE OOESCRIDTOR 
24 04 dD0 0815 1 MOVL 4 (RB), SPWR_Q_INPUT+4(R6) : 
BIA 1 SUBY sa’, (RB) + PERMANENTLY REMOVE DEVICE 
CO O08 ADDL =- R54 (RB) : FROM SCRATCH AREA 
a4 oF dO Of MOVL aC TLSAG CL IDATA*PPDSL_INPDEV,- ; GET INPUT DEVICE CHARS 
26 40 a6 00 go B29 § BBS poEVSO REC, FABSL_DEV(R4),58$ | : BRANCH IF REC “ORIENTED 
0 A6 £629 CF 6SA. OR é 1057 53$:  § MOVZBL NL, SPUR Q_{NPuT(R6) : SET INPUT TO NL 
4 A6 FBG C 9 B34 3 MOV NL*1,SPQN-Q_INPUT+4(R6) : 
40 A6 «46 «(OBSA 1 CLRL © FABSL_DEVTR2) : CLEAR DEVICE CHARACTERISTICS 
15 11 0830 1 $0 BRB 58$ ; 
F 8 ? PROCESS REC-ORIENTED PPF INPUT. 
52 £20 ag 7 BSF 1065 $68: MOVQ = SPWN_Q_INPUT(R6) ,R2 ; COPY DESCRIPTOR OF DEVICE NAME 
54 $ 7D 0843 1 6 MOVO (RB) RE + COPY DESCRIPTOR OF SCRATCH AREA 
097D 30 B46 106 BSBW GET _BEVICE : GET DEVICE NAME 
20 as 4 7D 08469 1 68 mOVa = RG, SPUN. o° INPUT (R6) t SAVE EQUIVALENCE STRING 
4 A2 084d 106 SUBW (RB)~ : PERMANENTLY REMOVE RESULT 
0408 54 CO Of p 20 ADDL  R4.4(R8B) : FROM SCRATCH AREA 
B54 «1072; 
B54 1 ie i 3 GET TERMINAL CHARACTERISTICS. DO NOT SPAWN THE SUBPROCESS IF THE TERMINAL 
5 4 th i ? HAS AN ASSOCIATED MAILBOX. 
50 40 AE 00 0854 1 7 bss: MovL FABSL -DEV(SP) -R : GET DEVICE CHARACTERISTICS 
SE 0080 ce i B58 (107 MOVAB NAREC 8 OBLNCSP). SP : DEALLOCATE FAB AND NAM 
06 50 £0 085D 1 28 BBS speed iM RO : SKIP IF INPUT IS NOT A TERMINAL 
B61 107 SETBIT SPWN_V~MODE, Pedy W_FLAGS(R6) § : SET NON-INTERACTIVE SUBPROCESS 
OA ih B65 1 30 BRB : ALL DONE 
51 20 a6 867 1081 59S MOVAQ SPUN ry INPUT (RG), R1 : GET ADDRESS OF INPUT STRING 
016 868 1 { BSB CHECE TRARB TRAMB : CHECK FOR MAILBOX 
1250 € : i 3 BLBC : BRANCH IF IT EXISTS 
BS: 
B6 : CHECK THAT INPUT FILE SPEC 1S NOT TOO LONG FOR SCREPRC TO HANDLE. 
50 420038 00 D ‘ 3 $0$:  MOVL acLls INVF ILSPE,RO ASSUME SPEC IS TOO LONG 
20 Ab ; 8 108 CMP a, NMSC_NAMLENGTH, SPWN_Q _ INPUT (R65 1S IT REALLY? 
F BLSSU  -95$ : YES, THEN ERROR 
1092 ; 
93; RETURN WITH STATUS ' 
1 j mOVL = #1, RO : SET NORMAL STATUS 
= Ss 3 1096 95$:  RSB > EXIT WITH STATUS 
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«SBTTL CHECK FOR ASSOCIATED TERMINAL MAILBOX 


SSS 


: THIS ROUTINE IS CALLED TO CHECK FOR AN ASSOCIATED TERMINAL MAILBOX. 
; SUBPROCESS IS NOT SPAWNED OR ATTACHED IF THE TERMINAL HAS AN ASSOCIATED 
t}. 4 : 
5 5 : INPUTS: 
3 R1 ADDRESS OF DESCRIPTOR OF TERMINAL DEVICE NAME 
: OUTPUTS: 
5 : RO STATUS CODE 
13° 
14 CHECK_TRMMBX: 
7E i 20 . mova R2,-(SP) F SAVE REGISTERS 
DE 08 1 MOVAL sisP R2 ¢ ALLOCATE LONGWORD FOR CHANNEL NUMB 
5 ot C 1 SUBL #12,SP + ALLOCATE DEVICE CHARACTERISTICS BU 
E 00 O08 1 MOVL SP, : SAVE BUFFER ADDRES 
9 SASSIGN_§ | DEVNAR=(R1) .- : GET A CHANNEL TO THE TERMINAL 
é = ° 
4650 €9 089 BLBC =—_—«&ROO,, 90 + BRANCH IF ERROR 


$Q10W_S ENAN= (RZ) = SENSEMODE ,- GET TERMINAL CHARACTERISTICS 


I 
pag SYSEFN,=- 
(R35) 


eB a td nee ee ee ed ee A Bd a a 8 ed NB ed et nb ed 8 8 td 8 a 
tt a et 8 a td a a te 8 ed ed a tt a td tt 


WRI SO OO NAUFS WN SO ONAN WIN O OOONAUSE 


FD COONS OOP OM OM OUPINIPIPININININY MHINV NOONE 


23 5 § BC BLBC RO, 908 BRANCH IF ERROR 
50 A BC MOVZWL ache) RO GET IOSB STATUS 
1¢ 50 € ic BLBC $ BRANCH IF ERROR 
BC SDASSGN_S CHAN=(R2) ; DEASSIGN TERMINAL CHANNEL 
OF 50 €9 i BLBC ~RO,90$ : BRANCH IF ERROR 
0 388F2 8F DO O8D MOVL #CLI$_TRMMBX : ASSUME ASSOCIATED TERMINAL MBX 
03°95 . op e0 BE BBS ait2s0. DCL ONAN CBX, 8(R3) ,90$ : EXIT WITH ERROR IF TRUE 
50 01 OD BE ; MOVL #1,R : SET SUCCESS 
56 18 co BE 41 90$ ADDL #8+4+12,SP : RESTORE STACK 
8E fo 43 4 novi (SP)+,Re ; RESTORE REGISTERS 
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«SBTTL PROCESS SPAWN OUTPUT STREAM 


f 


= 
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ee 
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THIS ROUTINE IS CALLED TO PROCESS THE SPAWN OUTPUT STREAM. 


INPUTS: 
R6 = ADDRESS OF SPAWN BLOCK 
RS_= DESCRIPTOR OF SCRATCH AREA 
R11 = ADDRESS OF PRC AREA 


OUTPUTS: 
RO = STATUS CODE 


VERIFY OUTPUT: 
3 IF OUTPUT FILE SPECIFICATION NOT SPECIFIED, THEN USE CURRENT SYSSOUTPUT 


PPEPEPDPE DPSS ES £* 
wa 


wm Ca A OOO NONE UI Ooo WEA Ua OOO WE Ud oeDeD aor 


BBS #SPWN_V_OUTPUT,- : IF OUTPUT SPECIFIED, 
SPUN _O FLAGS(RO) 10S ; THEN USE JT 

MOVZBL SYSSOUTPUT,SPWN_0_OUTPUT(R6) ; ELSE USE ‘SYS$ouTPUT"’ 

MOVAB SYSSOUTPUT+1 ,SPQN~Q_OUTPUT+4(R6): 


; CHECK THAT OUTPUT FILE SPECIFICATION IS NOT TOO 
{0s: 


LONG. 


ee ch ce me RD th el eB kk a 8 a ad a oh th a SS 
GREER AB a id et ek le eB at ed a et a RB 08 AE nd ed ed ed a dd a a 8 A td tt tt 
NNN NNN NICO O 


MOVL  &#CLIS_INVFILSPE,RO ; ASSUME INVALID FILE SPEC 
CMPW SBUN_G_OUTPUT (RG) ,#NAMSC_MAXRSS : NAME TOO LONG? 
BGTRU 25$ : IF SO, EXIT WITH ERROR 
; ALLOCATE FAB AND NAM BLOCKS AND THEN SPARSE THE OUTPUT FILE SPECIFICATION. 
’ MOVAB -FABSC_BLN-NAMSC_BLN(SP) , SP ; ALLOCATE FAB AND NAM BLOCKS 
movcS #0 (SPY #0, : ZERO FAB AND NAM 
#F ABSC_BLNSNAMSC_BLN, (SP) ; 
MOVL : GET BASE OF FAB 
MOVAB FABSC_BLN(R4) RS ; GET BASE OF NAM 
ASSUME FABSB BLN EQ FABSB B1D¢1 : INIT FAB 
MOVW Phase Biptnas ce ; SET FAB ID 
SETBIT FABSV~PPF FABSL_FOP(R4) ; USE PROCESS 1/0 SEGMENT 
MOVE  SPWN_G_OUTPUT(RS) ,FABSB_FNS(R4) ; SPECIFY FILE NAME 
4 MOVL  § SPWN7Q QUTPUT+4(RE) .FABSL_FNACR4) ; 
3 MOVE LOG,FAB$B_DNS(R4) 3; SPECIFY DEFAULT FILE TYPE 
9 MOVAB LOG*1,F ABSL_DNA(R4) ; 
‘3 MOVL 5, FAGSL_NAAC(R4) ; SPECIFY NAM BLOCK ADDRESS 
ASSUME NW BLN EQ NAMSB BI1D+1 : INIT NAM 
$ movw ANA CAB 1Ds<NARSC_BLNGB>, - ; SET NAM ID 
MOVB  #NAMSA_NOCONCEAL,NAMSB_NOP(RS) ; GET PAST DOUBLE UNDERSCORES 
MOVE  #NANSC"MAXRSS NARSB_ESS(R5) ; SPECIFY RESULT BUFFER 
MOVL  4(R8) ,RAMSL_ESA(RS) ; : 


a 


08 50 


08088 


28 34 05 1 
eh oe A 


ait 
A6 SOA 
CA6 444A 


05 40 A400 
0888 


maa 


i 
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ere aS ett ae ae ee ce ee ee ee ee ee ao cet) a cot ee ed ca ee ee et et a BR ed ek eh eB a ed 8 de tt et A 


MOMMIES BERBER ARRAS 


“SEP-1 DCL. SRCJSPAWN.MAR; 
SPARSE FAB=(R4) 3 PARSE THE FILE SPEC 
BLBS 308 3 CONTINUE IF SUCCESSFUL 


$0: MOVAB CORSE BLAOHARSC LNCS?) .SP DEALLOCATE FAB AND NAM 
$ BRW 95 ; EXIT WITH ERROR 


SS WON-PPF OUTPUT HERE. IF NOT RECORD-ORIENTED, THEN USE EXPANDED 


G AS OUTPUT. IF RECORD-ORIENTED THEN USE DEV FIELD AS OUTPUT. 


tg BBS #NAMSV_PPF WAMSL _FNB(RS) , 50S BRANCH IF PPF FILE 
MOVZBL NANSB B ESL CR )R GET LENGTH OF RESULT STRING 
UB REMOVE RESULT 


1 

} : 

1 SUBL ; PERMANEN TLY 

1 ADDL i arith 3 2 FROM § A 

1 BBC EVSV_REC,FABSL_DEV(R4),40$ |: BRANCH IF NOT RECCORIENTED 
1 MOVZBL NAMSB_DEV(RS),SPQN_Q_OUTPUT(R6) ; USE DEVICE AS OUTPUT 

1 MOVL —  NAMSLIDEV(R5S) ,SPWN_Q-OUTPUT +4 (RO) ; 

1 BRB 56$ ; PROCESS AS PPF DEVICE 


: OUTPUT IS A NON-PPF NON-RECORD-ORIENTED DEVICE. USE THE ESS AS OUTPUT. 


ios: MOVZBL NAMSB _ESL(RS) ,SPWN_Q OUTPUT (RG) USE ESS AS OUTPUT FILE SPEC 
MOVL NAMSL“ESA(R5) . SPWN-Q- OUTPUT +4 ( ROS; 
BRB 90$ :° DONE WITH PARSING 


Bree tee 


; OUTPUT IS PPF. IF FROM A RECORD-ORIENTED DEVICE, DO 
; THE DEVICE NAME. OTHERWISE, IF EXPLICITLY SPECIFIED 
: ¢ ERROR 3; A MAILBOX THAT WILL CAUSES WRITES 


bos: Bc #SPUN_V OUTPUT SPWN_W_FLAGS(R6) ,51$. 


S seg tonl a GET 
oy tk 


TURN AN 
TO GO TO THE PARENT'S 


EWI = S OOONAULS WIN $$ SO OONAU 


x SKIP IF IMPLICIT OUTPUT 
MOVL &#CLI$ SPONI : ASSUME ILLEGAL OUTPUT FILE 
BBC #DEVSO_ REC, TO RRSL _DEV(R4),20$ § : ERROR IF Not REC-ORIENTED 


AT CTRL/Y LEVEL, THEN D 
CIFIED AT PROCESS CREAT 
E 


$1$: BBC #PRC_V_YLEV 
MOVL FABSL-DEV(RGY 
MOVAB pac =OUTDVI(RI1), oR1 
MOVZBL J+ 

mova RG. SPUN_Q_OUTPUT(R6) 


eae SYSSOUTPUT. USE THE OUTPUT STREAM 


IF CTRL/Y LEVEL 
THEN SPECIAL CASE SYSSOUTPUT 
GET DEVICE CHARACTERISTICS 
GET DEVICE NAME DESCRIPTOR 


SAVE DEVICE NAME DESCRIPTOR 


: : PROCESS LEGAL NON-RECORD-ORIENTED OUTPUT. 


2s: BBS #DEVSV REC PNA ae -DEV(R4) ,56$ ; ERROR IF NOT REC-ORIENTED 
BSBW SREATE_OU ; CREATE OUTPUT MAILBOX 
BRB ; DO NOT SET OUTPUT BIT 


BDNANE UI O OIA WN OS Od 
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¥04=000 PROCESS SPAUN DUTSUT STARE An pam rks ae a yas fats te Ty age 46, 
cr 1259 ; PROCESS RECORD-ORIENTED OUTPUT. 
52 28 Dd 09¢ S6$: mova PUN_Q_OUTPUT(R6) ,R2 : COPY DESCRIPTOR OF DEVICE NAME 
54 p D mova RB) RE + COPY DESCRIPTOR OF SCRATCH AREA 
O7ED D BSBW Get bEVICE : GET DEVICE NAME 
28 4 D MOVa  R4,SPWN_G_OUTPUT(R6) : SAVE EQUIVALENCE STRING 
4 Dp 1 SUBW * (RB) : PERMANENTLY REMOVE RESULT 
04 os 3 ADDL = R4.4( RB) : FROM SCRATCH AREA 
4 3 
set ; CHECK THAT OUTPUT FILE SPEC IS NOT TOO LONG FOR SCREPRC TO HANDLE. 
.o $: | SETBIT SPWN_V_OUTPUT,SPWN_W_FLAGS(R6) ; SET NO MAILBOX IN USE 
5 £ 969 127 30s: MOVAB FABSC BLN*NAMSC_BLA(SP) .SP + DEALLOCATE FAB AND NAM 
59 3 F OD EE 127 MOVL &#CLIS"INVFILSPE-R : ASSUME SPEC IS TOO LONG 
8 FF 8F & F5 107% CMPW #LNMSC_NAMLENGTH, SPWN_@_OUTPUT (RE) : IS IT REALLY? 
3 3B 13 BLSSU  -95$ ; YES, THEN ERROR 
OFD 1 8 : 
FD 28 + EXIT WITH STATUS 
50 01 4! FD 1 8 i MOVL #1,RO : SET NORMAL STATUS 
05 OA00 1281 95$: RSB : EXIT WITH STATUS 


Ww 
on 


uw 


COURT MMAROum nua 


UNS FMWD “OM > NOWCOO 
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P=} 
3 «SBTTL ATTACH COMMAND 
DCLSATTACH = ATTACH COMMAND 


DCL. SRCISPAWN.MAR; 


THIS ROUTINE IS CALLED TO EXECUTE THE DCL ATTACH COMMAND. THE ATTACH 
COMMAND TRANSFERS EXCLUSIVE CONTROL OF THE TERMINAL FROM THIS PROCESS 
TO ANOTHER PROCESS BY MUTUAL COOPERATION. A MESSAGE IS SENT TO THE 
‘DESTINATION gs ATTACH REQUEST MAILBOX ASKING IF IT WANTS TO 
HAVE CONTROL OF THE TERMINAL. THE DESTINATION PROCESS RESPONDS WITH 

2 A_YES/NO REPL perene ine ON ITS STATE. IF IT RESPONDS WITH YES, THEN 
WE MARK OURSELVES DETACHED, AND WAIT FOR A RE-ATTACH REQUEST. 

; INPUTS: 

% R10 = ADDRESS OF COMMAND WORK AREA 

9 R11 = ADDRESS OF PROCESS WORK AREA 


2 
par 
wv 
Cc 
—_ 
wn 


RO = STATUS CODE 


oS Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Ge Se Ge Gee 
t- + 


CLSATTACH: : 


: GET THE PROCESS NAME OR PID FROM THE COMMAND LINE 
R ; MARK NO PROCESS NAME SUPPLIED YET 


SIA PMI OOOO MONS UWD OOOO NAME WI ODO WE MOI Ooo MO eo oe aor 
o 
dl 
= 
ad 


6 
1 CLRL RR : MARK NO PID SUPPLIED YET 
12 40$ BSBU DCLSGETDVAL : GET NEXT TOKEN 
1 BLBC : : BRANCH IF END OF LINE 
1 CMPL RS. #PTR_K_COMDQUAL : VERB QUALIFIER? 
1 BEQL : BRANCH IF SO 
1 CMPL 5, #PTR_K_PARAMETR : PARAMETER (PROCESS NAME)? 
1 BNEG © 40 : IF NOT, IGNORE IT 
nova RI RG : SAVE DESCRIPTOR OF PROCESS NAME 
42$ BSBW © DCLSGETNVAL : GET QUALIFIER NUMBER 
CMPB = saR}1, #@CLISK_ATTA_IDEN : / IDENTIFICATION? 
BNEQ : IF NOT, IGNORE IT 
CMPB ss R4, #@PTR_K_COLON : IS A VALUE PRESENT? 
BNEQ : IF NOT, USE DEFAULT 
BSBU © DCLSGETDVAL : GET /IDENT VALUE 
mova : PASS DESCRIPTOR OF VALUE STRING 
MOVZBL #PRC_K_HEX,R1 : DEFAULT RADIX = HEX 
BSBW DCL SCNUASCBIN : CONVERT TO BINARY 
BNEQ 4 : BRANCH IF CONVERSION ERROR 
MOVL Ri ,R8 : SAVE PID AWAY 
45$ STATUS EXPSYN : EXPRESSION SYNTAX ERROR 
50$ BSBB DCLSATTACH2 : PERFORM ACTUAL ATTACH OPERATION 
BLBC ~=—_-« RO, 90 : BRANCH IF ERROR DETECTED 
BSBu RE TURNED_MESSAGE : WRITE MESSAGE SAYING WE HAVE RETURNED 
MOVL #1,RO0 : INDICATE SUCCESS 


RETURN WITH STATUS 


is 


0084 g8 4 
FSA8" 50 

as 6 

7E 7c 

F8 AE OF 
03190004 or DD 
E Be 

F8 AE F 
03250004 8F DD 
1€O0 er Be 

0 SE OD 

5E C 

8ED 

= it 
8ED 

uh 
5 


De a ee ee BD a ee we a BB a 8 ed de oh 8 oo dd ss a — 8 Ss SS 


S 


e 


SD OCONAUE WY OS OOONAUES WI O OOONAULS VO 


SSSA AEARAPAAAA AAEM EEE EELS ESSE EH 


: MAILBOXES WHICH ARE CREAT 
: RESULT, WE MUST PERIODICALLY CHECK THE HANGUP FLAG IN 
: IS DETECTED WHILE WE ARE OPERATING. 
PUSHL PRC_L_OUTOFBAND(R11) 
20 BSBW DCLSRESETOOB 
75 CLRQ = =( SP) 
7 CLRQ. = =( SP) 
7 PUSHAB -2*4(SP) 
7 PUSHL #JPI$_P1Da16+4 
7 CLRL =< SP) 
0 PUSHAB -2%4(SP) 
1 PUSHL  #JPI$ MASTER PIDal6+4 
; PUSHR #°M<RE,R7,RES 
MOVL __SP,R 
4 SGETJPIW_S’ ITMLST=12(RO),- 
5 TOSB=40(RO) ,- 
6 EF NHEXESC SYSEFN,- 
PRCNAM=(ROJ,- 
3 PIDADR=8(ROS 
ADDL #3%4,SP 
POPL R 
9 ADDL #2%4,SP 
3 POP R 
ADDL #3*4,SP 
94 BLBC ~=_—«aRO,, 4 
95 MOVZWL (SP) RO 
96 BLBS RO, 55$ 


ING COMMANDS 
OPERATION 


-SBTTL PERFORM ATTACH OPERAT 


ALTERNATE ENTRY POINT, 
WRK AREA MUST BE MADE A 
WITHOUT ANY SUCH AREA. 


INPUTS: 


R6/R7_= DESCRIPTOR OF PROCES 
= PID OF DESTINATION PROC 
1 = ADDRESS OF PRC AREA 


OUTPUTS: 
RO = FINAL STATUS 


DCLSATTACH2:: 


Ss 
ES 


"SSEb=158S 29:18:95 


ION 


CONTROL/Y AST'S ARE DISABLED THROUGHOUT THIS COMMAND 
D HERE ARE CORRECTLY DELETED 


CLI CALLBACK 
T, I 


NAME 
Ss 


AX/VMS Macro V04-0 
DCL.SRCIJSPAWN.MAR; 


ro i, 


. OF THE 
CALLBA 


USE 
SINCE CL CKS OPERATE 


EITHER THE PID OR PROCESS NAME MUST BE SPECIFIED. 


TO ENSURE THAT 
ETC. A 
€ASE A HANGUP 


SAVE OUT<OF-BAND ENABLE MASK 
DISABLE ALL OUT-OF-BAND AST'S 


7 ; LOOKUP THE DESTINATION PROCESS, AND IF PRESENT, GET THE PID AND MPID 


ALLOCATE AN I0SB 
JPI ITEM LIST 


ET BUFFER LENGTH 
EST ITEM 


SS 
MPID, SET BUFFER LENGTH 
PUSH PROCESS NAME DESCRIPTOR, PID 


GET PID OF THE PROCESS 


z2ore-w- 
\~] 
m 
ouo 
cma 
m 


10SB_ STATUS 
ANCH IF PROCESS FOUND 
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PERFORM ATTACH OPERATION = Hit 7 90:15:93 Yet SRCJSPAWN.MAR; ” . 3) 
SE AAQ 749%: ADDL 4#8,SP : POP THE 10SB 
0258 §9 AAC BRW $8 : REPORT ERROR 
AAF 4 : 
AAE é ; MAKE SURE WE AREN'T TRYING TO ATTACH TO OURSELVES 
7E 7C QAAF 1608 §5$: —cLRO ={SP) : CREATE GETUPI ITEM LIST 
FB AE OF OABI 14 4 PUSHAB <2*4(SP) + SET BUFFER ADDRESS 
03190004 8F DD OAB4 14 PUSHL = #JPI$_P1Da16+4 : REQUEST OUR PID, SET BUFFER LENGTH 
— D4 OABA 14 6 CLRL : SETUP mp lp REQUEST ITEM 
FR AE OF OABC 16 PUSHAB -2*4(SP) : SET BUFFER ADDRESS 
03259904 er p AB 4 3 PUSHL url “MASTER_P1Da16+4  : REQUEST OUR MPID, SET BUFFER LENGTH 
ACB 1410 SGETJPIW.S’ ITMLST=(RO),- : GET PID OF THIS PROCESS 
ACB 1411 T0SB=28(RO),- ; 
AC aig EFN=#EXESC. SYSEFN ; 
54 BED0 AE 1 POPL 4 : GET OUR MPID 
SE 08 CO OaE 14 ADDL #2%4,SP : POINT TO OUR RETURNED PID 
1 BED AE 15 POP R : GET ‘OUR PID 
5 C CO OAE 1g ADDL 4#3%4,SP + CLEANUP STA 
50 000388c2 8F DO OAE 1 MOVL  #CLI$_REFUSED,RO : ASSUME AN ERROR 
5 1 D1 OAF 18 CMPL = RI_R2 : TRYING TO ATTACH TO OURSELF? 
2! 13 OAF 1 BEQL $ : IF $0, REJECT THE OPERATION 
54 53 01 OAF : TRYING TO ATTACH TO A PROCESS OUTSIDE 
AFB ; OF OUR J 
AC 12 OAFB 3 IF SO, REJECT THE OPERATION 
SE 08 CO OAFD : POP THE I0SB 


SE iE C2 SUBL #30,SP : ALLOCATE ROOM FOR NAME 
5E OD 0B0 PUSHL SP : CREATE DESCRIPTOR FOR NAME 
1E DD PUSHL #30 : 

51 F511 cr 9E MOVAB ATTACH_NAME,R1 + GET ADDRESS OF ASCIC FAO STRING 
50 81 9A MOVZBL (R1)+,RO : CONSTRUCT DESCRIPTOR OF STRING 
50 7D O€ MOVa §—s- RO, - ( §P) : PUSH DESCRIPTOR ONTO STACK 

SE 00 081 MOVL SP,RO. 
B1 SFAO_S CTRSTR=(RO),- : CONSTRUCT LOGICAL NAME 
B1 OUTBUF =8(ROS .~ 
B1 our N=8(RO).- 
B1 Pi=R : FROM PID FOR THIS PROCESS 
SE 08 CO ADDL  #8,SP : POP FAO STRING DESCRIPTOR 


Vv 


y CMPL R3,R4 

§ BNEQ 49$ 

Z ADDL #8,SP 

5 

§ 3; CREATE ATTACHSPID LOGICAL NAME FOR DESTINATION ATTACH MAILBOX 
4 

d 

& ity SYSSINPUT TRANSLATION (TERMINAL DEVICE NAME). 

2 IF WE ARE AT CTRL/Y LEVEL, USE PROCESS PERMANENT SYSSINPUT INSTEAD. 
& 


80S: MOVZWL #ATTMBX_MAXMSG,R4 
UBL  R4,SP 


WW D NUMVINM OOOO OOOUVUVIMNIUPYI TNE 


5 
1 
it 
g 
| MOVL = SPR 


4 10 3C OF ; SET SIZE OF SCRATCH BUFFER 
; 4 C2 O8 4 S ; ALLOCATE SCRATCH BUFFER FOR STRING 
: b 4 : CREATE DESCRIPTOR OF BUFFER 
3 D O€ 4 MOVG =-R2 7 (SP) 3 SAVE R2/R 
E1 08 4 BBC spac V_YLEVEL 3 IF CTRU/Y LEVEL 
8 AB c 0 runes R47) 2$ + THEN SPECIAL CASE SYSSOUTPUT 
53 000800 "BE 00 MOVL aE TESA CCIDATACPPDST_ INPDVI,R3 ; GET ADDRE S OF ASCIC DEVICE NAME 
5 Ba BRB 64$ ; SKIP SYSSINPUT PROCESSING 
53 F4F3 CF 9E 084 62$: MOVAB SYSSINPUT,R3 : CREATE SYSSINPUT DESCRIPTOR 


sefGlArRROcESSIng conmanos —* '" —ag-sepet994 99.17.05 NMS OB, 


™ o6f ; i — peugeot GP 5 rece : GET INPUT DEVICE NAME 
SC g t28 BLBC ef hil 3 BRANCH IF ERROR 
4 CHECK IF WE ARE A TERMINAL 
C 1460 ° CLRQ = =( SP) ; ALLOCATE AN 10S8 
ze 14 MOVa = R2, = (SP) + PUSH DEVICE DESCRIPTOR ON STACK 
5 p 14 MOVL P : GET ADOR. OF DESCRI 
¢ 14 CLRO 30s = §p) : CREATE AN ITEM LIST 
8 OF 14 PUSHAB -224(SP) + SET BUFFER ADDR. 
0004 i D 14 PUSHL avi _DEVCLASS@16+4 ; REQUEST DEVICE CLASS 
14 Scetoviu, $ RYMAN CRT) ° + GET INPUT DEVICE CLASS 
14 EFSAEXES SYSEFN,- 
14 Tm ROY 
51 147 VL tspy : 3 GET DEVICE CLASS 
E ¢ 147 ADDL #48 ; POP GETDVI ARGS. OFF THE STACK 
22 E 147 BLBC 0.6518 : REFUSE ATTACH IF ERROR 
4 147% CLRL ORR : ASSUME IT IS A TERMINAL 
00000062 ef 51 D4 147 CMPL = R1,#0C$_TERM : Is INPUT DEVICE A TERMINAL? 
: 147% BEQL §4=s« 64'S : BR IF YES. FLAG OK AS IS 
06 167 INC t INDICATE NOT A TERMINAL 
52. BE 1478 641$: MOVO  (SP)+,R2 + RESTORE R2/R3 
1480 ; 
16 ? : CHECK FOR AN ASSOCIATED TERMINAL MAILBOX. 
ze 4 7 14 3 . MOVQ  =-R4, = (SP) : PUSH SYSSINPUT TRANSLATION 
5 E D 14 MOVL  SP,R1 : GET ADDRESS OF INPUT STRING 
13 E 1485 BLBS 0.66% + DON'T CHECK FOR MAILBOX IF 
14 6 ; NOT A TERMINAL 
FCDD 39 14 BSBW CHECK_TRMMBX : CHECK FOR MAILBOX 
00 50 € 16 8 BLBS 0,66 ; CH IF SUCCESS 
11f «31 14 658 BRW 90$ : 
50  000388C2 8F 00 1491 651$: MOVL #CLIS$_REFUSED,RO SET STATUS 
115 1498 BRW 90$ 
1494 ; 
1495 : CREATE ATTACH MAILBOX FOR THIS PROCESS TO RECEIVE RE-ATTACH REQUESTS. 
1496 : IT IS DONE NOW, SO THAT ANY ERRORS DETECTED WILL CAUSE THE ENTIRE 
149 : OPERATION TO FAIL, RATHER THAN SENDING THE ATTACH REQUEST TO THE 
1498 : OTHER PROCESS, AND THEN FINDING OUT WE CAN'T CREATE THE RE-ATTACH 
13 3; MAILBOX. 
0128 39 1501 &6$:  esew CREATE _ATTMBX : CREATE ATTACH MAILBOX 
D E : BLBC ~=—-_—«aRO, 65 : BRANCH IF ERROR DETECTED 
1504 ; 
5 : ASSIGN CHANNEL TO ATTACH MAILBOX 
50 7E DE 1507 &7$:  MOVAL -(SP),RO ADDRESS OF LOGICAL NAME DESCRIPTOR 
3 SASSIGN ry DEVHAR=4+B¢ATTMBX RAXMSG(ROD .~j ASSIGN CHANNEL TO MAILBOX 
52 8ED0 1510 POPL R2 : GET CHANNEL OF MAILBOX 


14 
SPAWN = MULTI=PROCESSING COMMANDS 16-SEP-1984 AX/VMS gro v04- P 1 
v04 PERFORM ATTACH OPERAS TOM gr see 138 S8i25:95 YORI MRS Hacr VOR oe 7}, 
68 50 €9 14 BLBC ~=—_« RO, 691 : BRANCH IF ERROR 
BD4 «151 
+ 1313 | | 3 : SEND REQUEST TO DESTINATION ATTACH REQUEST MAILBOX AND GET REPLY 
0566 30 BD 1516 bas: BSBW CHECK. FOR_HANGUP : CHECK FOR HANGUP AST 
& 7€ OB07 151 MOVAQ <=(SP)~ t ALLOCATE 10SB FOR 1/0 REQUESTS 
BDA 1 $Qi0w_s FUNC =H IOS WRITEVBLK,- : WRITE TO MAILBOX 
BDA ErNcsE ESC SYSEFN.= =} 
BDA 1 preBTeCReS, P2=8(R4) t RECORD = SYSSINPUT TRANSLATION 
38 50 & FB Ot BLBC t BRANCH IF ERROR 
50 ¢ ar 1504 MOVZWL Res RO : FINAL STATUS FROM I0SB 
35 50 é COl 1525 BLBC =. RO, 69S + BRANCH IF ERR 
53 e E C04 1 $ MOVAQ = ($P) R ; ALLOCATE RECORD BUFFER 
04 A3 5B 00 O0CO7 1 MOVL  R11,4(R3) : GET PRC A DORS. 
¢ i] $Q10w_s Funt=#{0$ as _READVBLK,- §; READ RESPONSE FROM MAILBOX 
COB 1 0 EFN=#EXESC_SYSEFN,- ; 
CoB 1 10SB=(R : 
CoB 1 : ASTADR=READ_ AST,- 
cop 1 TPRM=R 
cop 1 P1=(R3) ,Po=84 : TO LONGWORD BUFFER 
53 BEDO 0C30 1535 POPL R : POP RECORD BUFFER 
03 50 5 ¢ 13 : BLBC RO, 69 t BRANCH IF ERROR 
50 6 «3c CO 6 1 MOVZwL (R4),RO : GET FINAL STATUS FROM I0SB 
E o¢ CO 40c39 «15 8 69$: ADDL #12 §p + POP THE I0SB 
7c 50S «ED c3¢ 1539 697$: BLBC 0,80$ : BRANCH IF ERROR 
CSE 40 SDASSGN.S Onan? ; DEASSIGN CHANNEL TO ATTACH MAILBCX 
C49 1542; 
49 i ‘§ : IF DESTINATION PROCESS SAYS NO TO ATTACH REQUEST, REPORT IT TO THE USER 
7953 £9 0C49 1545 ° BLBC ~=—._—«&R 3, 85 $ : BRANCH IF DESTINATION PROCESS SAYS NO 
ee ae 
COC 1548 ; 
C4C¢ 1348 : WAIT FOR PROCESS TO RETURN CONTROL HERE (FROM ATTACH OR TERMINATION). 
4c 1 20 : IF WE ARE IN AN INTERACTIVE PROCESS, THEN TELL THE TERMINAL DRIVER THAT 
coc 1338 ; WE NOW OWN THE TERMINAL. 
c4c 1 * 
056 30 C4c 1 24 70$ BSBW 3s CHECK FOR. HANGUP : CHECK FOR HANGUP AST 
€ 7& OC4F 1 MOVAQ =(SP)7R : CREATE A TEMP. 
¢S2 1 36 $Q10W_S FUNc=#108 SETMODE!IOSM_WRTATIN,- ; SET ATTN. AST ON MAILBOX 
(52 1 CHAN=PRC_Q_ATTMBX(R11) >=; 
(52 1 38 EPNCAE NES SYSEFN,= : 
(52 1 10SB=(RO) ; 
c52 1 60 PISATIACH “AST, t ADDRESS OF AST ROUTINE 
(52 1 6 =R11 > PASS ADDRESS OF CLI STORAGE 
SE 08 cO OC78 1 3 ADDL 98.8? : CLEAN UP ST 
OF £0 the i HH ea “apne V_DETACH : BRANCH IF STILE DETACHED 
C5 68 AB C84 1565 C9 FLAGS (RIGS : te 
EO 0C87 1 6 BBS Ore MODE : SKIP IF NOT INTERACTIVE 
40 68 AB c89 1 PRC_Q-FLAGS(R11),90$ 


SHGESS Esco CAI US ACTA 
CLRQ SPeRO ab OCATE AN 
MOV GET ADDRESS oF Tose 
$010u_ s Fuscssz0s SF Tmoee ore i -PROCESS,= ; ASSUME TERMINAL OWNERSHIP 
Wg 0 INPCHAN HAN(R113,<~ 


aeeie SYSEFN 


so SE 06 


SNS NIO Oo 


¢ 
on 
a] 
(91 1 
if . C 74 1 ADDL #180 - 3 RESTORE T a STACK 
p BG 1 MOVL RO : SET succes 
1 cB9 BRB + AND EXIT 
CBB : 
CBB | + CLEANUP FROM ERROR DETECTED WHILE HAVING CHANNEL OPEN TO ATTACH MAILBOX 
cB i Bos: SDASSGN_S CHAN=R2 ; DEASSIGN CHANNEL TO ATTACH MAILBOX 
50 000388C2 8F 00 cc i $: MOVL “#CLIS_REFUSED,RO t ATTACH REQUEST REFUSED 
CCC 1584 ; 
ccc 5 ; RESTORE PROCESS CONTEXT 
SE 3 co OCccCe 13 Si 20s: ADDL = #B+ATTMBX_MAXMSG+8+30,SP; CLEAN STACK 
56 CCF 1 8 95$:  MOVL RO RS 3 SAVE FINAL STATUS CODE 
0144 ; ce 15 BSBW DEALLOC_SPWN : REMOVE INACTIVE SPuN BLOCKS 
00 0 O¢cDS 15 BSBW DELETE _ATTNOX : DELETE OUR ATTACH MAILBOX 
1 BED0 CoB 1591 POPL R ; RESTORE OUT-OF-BAND ENABLE MASK 
F322" CDB 139¢ BSBW DCLSRESETOOB : RESTORE AST 
50 56 b9 CDE 159 MOVL  R6,RO : RESTORE EXIT STATUS 
CE1 159% RSB : EXIT 
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THIS ROUTINE 1 CAL 
THIS PROCESS TO REC 
INPUTS: 


ANDS 
AILBOX 


"SSEb=1986 28:5 


196 ECL TSH Aan mans 


-SBTTL CREATE ATTACH REQUEST MAILBOX 


R11 = ADDRESS OF PRC AREA 


OUTPUTS: 


RO = STATUS CODE 


R2 
-(SP) : 


CLRQ 


; TO RE“ATTACH TO THIS PROCESS LATER ON. 


| CREATE ATTACH MAILBOX AND LOGICAL NAME, 


CLRQ -(SP) 
P 


USHAB -2*4(SP) : 
PUSHL #JPI$_P1Da16+4 ; 
MOVL _‘SP, ; 
SGETUPIW.S ITMLST=(RO),- ; 

T0SB=16(RO),- ; 

EFN=#EXESC_SYSEFN ; 
POPL R F 
ADDL #3%4,SP ; 
SUBL #30, ; 
PUSHL SP ; 
PUSHL #30 
MOVAB ATTACH_NAME,R1 : 
MOVZBL (R1)+,RO 3 
mova §—s- RO, - ( $P) : 
MOVL SP, RO 
SFAO_S CTRSTR=(RO),- : CONSTRUCT LOGICAL NAME 

QUTBUF =8(ROS .- 

TLEN= (RO). = 

PisR : FROM PID FOR THIS PROCESS 
ADDL 4#8,SP : POP FAO STRING DESCRIPTOR 
MOVL _SP.RO t ADDRESS OF LOGICAL NAME DESCRIPTOR 
SCREMBX_S CHAN=PRC_W_ATTMBX(R11).- s CREATE ATTACH HAILBO 

BUF QUO=#ATTHEX MAXHSG - : ONLY NEEDS TO HOLD 1 MESSAGE 

PRONSK=#°811 1711100061111,- | : ONLY GIVE OWNER R/W ACCESS 

= ao 

ADDL  #30+8,SP : CLEANUP STACK 
ADDL 4#8,SP : POP THE 10SB 
POPL R : RESTORE REGISTERS 


SAVE REGISTERS 
ALLOCATE AN I0SB 


SHOULD ANY OTHER PROCESS DESIRE 


CREATE GETJPI ITEM LIST 
SET BUFFER ADDRESS 
REQUEST OUR PID, SET BUFFER LENGTH 


GET PID OF THIS PROCESS 
GET OUR PID 
CLEANUP S$ 


L 
ALLOCATE R R 
CREATE DESCRIPTOR 

s 
P 


FO 

GET ADDRESS OF ASCIC ST 
CONSTRUCT DESCRIPTOR OF STR 
PUSH DESCRIPTOR ONTO STACK 


SPAWN 
v04 


bevel 


7A AB Be 


TI-PROCESS 
E ATTACH REQ 


F 14 
ANDS 16-SEP= 217: AX/VMS Macro vOGed 
1 Ge§? nal y sox grSEe Ske 89:05:93 HOR(MeS Maccs, 
.SBTTL DELETE ATTACH REQUEST MAILBOX 
: THIS TINE Is CALLED TO DELETE ali ATTACH RE EQUEST I MAILBOX 
; FOR TH ROC ESS H : IS D FTER WE COME BACK F OM DETACHED 
3 STATE, SINC ER THAT POINT, we CAN NO LONGER ACCEPT ATTACH REQUESTS. 
§ ; INPUTS: 
3 R11 = ADDRESS OF PRC AREA 
; OUTPUTS: 
; NONE 
DELETE_ATTMBX: 
SDASSGN_S CHAN=PRC_W_ATTMBX(R11) ;DELETE ATTACH MAILBOX 
i CLR PRC_W_ATTMBXTR11) ;MARK CHANNEL NO LONGER VALID 
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«SBTTL CREATE TERMINATION MAILBOX 


3 INPUTS: 

; Re = ADDRESS OF SPWN DATA STRUCTURE 
: RB = ADDRESS OF SCRATCH STORAGE 

; R11 = ADDRESS OF PRC AREA 

; OUTPUTS: 

; Rg = STATUS C 

; = ADDRESS OF e nex BLOCK 
CREATE_TMBY.: 


"PSEp= 1 See 99:45:50 


AX/VAS sre. = 
DCL.SRCIS RARG} 


THIS ROUTINE ¢ 13 CALLED cnr A_TERMINA mo” 
THIS PROCESS Receive” RMINA Ai MESSA 
SPAWNED SUBPROCESSES. nally 


Paar i) 


3 ALLOCATE A NEW TMBX BLOCK AND LINK IT INTO THE LIST. 


MOVZUL eee C das Ut R1 


BSBW oe L6YNM 

Bi BC 

MOVL 

MO\'W ; hae WShzg a7) 

CLAB XB _REI'S(R7) 

MOV. R11, TMBX | PRC(R7) 

MOVL PRC_L_TMB) (R11), 
MBX C_LINK(R7) 

MOVL R7,PRC_L_TMBX(R11) 


3 LENGTH OF STORAGE TO ALLOCATE 
: aeheen's yim y 


8 
SET ADDRESS OF TMBX BLOCK 
STORE 7158 OF BLOCK 
ae har REFERENCE COUNT TO ZERO 

TORE BASE OF PROCESS WORK AREA 
INSERT BLOCK INTO LINKED LIST 


; CREATE A TRMINATION MAILBOX THAT CAN HOLD AS MANY MESSAGES AS ALLOWED 


; BROTHERS AND ENABLE THE TERMINATION AST. 
SCREMBX_S CHAN=1MBX_W_ CHANNEL (R7 
LBC 


“Bur FQUO=#TMBR_C_ HAXRER SeACESC ~TERALEN np yealinn 
nite $ FUNC =#108_ SETMODE ! 10$M_WRTATIN,- f Sei ATTENTION AST ON MAILBOX 


X"W_CHANN EL (R7T~ 
OSB=SPWN-Q~10SB(R6) , = 
EFN=#EXESC SYSEFN 

Pisu wt TERMINATION NAST. - 


BLBC -95$ 
MOVZWL SPUN Q_10SB(R6) ,RO 
BLBC 958 


3 GET UNIT NUMBER OF TERMINATION MAILBOX 


SGETCHN_S cele . ~#_ CHANNEL (R7) ,= 


“PRIBUF 


CREATE A TERMINATION MAILBOX 


ADDRESS OF AST ROUTINE 
BRANCH IF ERROR 
GET 10SB STATUS 
; BRANCH IF ERROR 


: PASS TMBX BLOCK ADDRESS 


: GET MAILBOX INFORMATION 


es 


H 14 

- 1-PROCESSING COMMANDS 16- AX/VMS Macro voged Pa 
CREATE TERMIMAT TON Antony gree em] bhe 88515393 FAA(WeS Macro. oe 3, 

D ¢ RANCH RROR 

pF ae ttt _UNIT+8(R8), TMBX_W_UNIT(R7) ; i gave ma 80x ; 1T NUMBER 

DF 90$: RSB RETURN W ATUS 

DF ; 

DF 3 DELETE TERMINATION MAILBOX AND TMBX DATA STRUCTURE AND THEN 

DF 1033 RETURN WITH STATUS 

DF6 1735 95$: PUSHL RO 3 SAVE STATUS 

F 7 : BSBW DELETE_TMBX : DELETE ALLOCATED TMBX 
DFB 1 POPL R : RESTORE STATUS 
DFE 1738 RSB + RETURN WITH STATUS 


1 16 
DELETE TERMINATION MAILOOX® SSEp19be 28:25:95 ENN SRS ha nan, a 
4 .SBTTL DELETE TERMINATION MAILBOX 


Wrn—O 


THIS poy tas IS CALLED TO DELETE A TERMINATION MAILBOX AND ITS ASSOCIATED 
TMBX DATA STRUCTURE. 


INPUTS: 


R7_= ADDRESS OF TMBX DATA STRUCTURE 
R11 = ADDRESS OF PRC AREA 


ad ed ad DS A 2 tt 
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OUTPUTS: 
NONE 

754 eco 
755 
7 6 ELETE_T 
7 SPASSGN -§ CHAN=TMBX W_ CHANNEL (R7) : DELETE TERMINATION MAILBOX 

$7 00 138 MOVL X_L_LINKTR?) ,PRC_L_TMBX(R11) : REMOVE BLOCK FROM LIST 
7 mov R + SET ADDRESS OF BLOCK 
760 MOVZWL TMBX_W SIZE(R7),R1 : GET SIZE OF BLOCK 
761 pseu DCLSOERDYNMEM + DEALLOCATE BLOCK 

0 166 RSB ; 


SPAWN » eee! 


a ee ae 
5 bes «SBTTL DEALLOCATE SPWN BLOCKS 
THIS ROUTINE *S CALLED TO DEALLOCATE THE SPWN BLOCKS OF TERMINATED 
SUBPROCESSES. 
INPUTS: 
R11 = ADDRESS OF PRC AREA 
OUTPUTS: 
NONE 
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wa eed a 2 3 Ss tn ts tb es 8 
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EALLOC_SPWN: 
MOVAL 


50 00CO CB. DE PRC L sty RO 


3 

; 

9 

ASSURE SPURCC LINK EQ 6 GET ADDR OF FIRST SPWN BLOCK 
$ 

; 

5 

0 

1 

2 


ab 2 ad 8 a dd tb a eS td td st 


5 50 00 10$: MOVL : SAVE ADDR OF PREVIOUS SPWN BLOCK 
0 60 »D MOVL SPUN. L_LINK (RO) ,RO : GET NEXT SPWN BLOCK 
,.% BEQL 0$ : BRANCH IF 
Pre BBS #SPUN : BRANCH IF STILL IN USE 
F3 OC Ag 7 SPWN_@ “rt AGStROD 10$ : 
60 00 7 MOVL SPUNCLTL NK(RO) ,= : REMOVE BLOCK FROM LIST 
61 D 17 SPUN -t “CINK(RI) ; 
51 04 A 7 MOVZWL SPWN7W~SIZE(RO),R1 t SET LENGTH OF BLOCK 
F1¢B" 29 sell BsBM DCLSDERDYHMER : DEALLOCATE BLOCK 


Ss 


K 14 
WRITE RETURNED MESSAGE RA ee ee ot tow Ty Pane i, 


«SBTTL WRITE RETURNED MESSAGE 


THIS ROUTINE WRITES A MESSAGE INDICATING THAT TERMINAL CONTROL 
HAS RETURNED TO THIS PROCESS. 


INPUTS: 
NONE 

OUTPUTS: 
NONE 


ETURNED_MESSAGE: 


; OUTPUT MESSAGE SAYING THAT CONTROL OF THE TERMINAL HAS RETURNED 
; TO THIS PROCESS 


SE 10 C2 SUBL  #16,SP ALLOCATE SCRATCH BUFFER FOR PRCNAM 
SE DD PUSHL SP :CREATE DESCRIPTOR OF BUFFER 
10 0D PUSHL #16 
50 3B 00 MOVL  SP,RO 
04 3MARK_END OF JPI LIST 
5 D PUSHL RO ZADDRESS TO STORE RETURN LENGTH 
43 D mova (RO) ,- (SP) DESCRIPTOR OF STRING BUFFER 
02 AE 031C 0 7 MOVY #JP1$_PRCNAM,2(SP) 7SET PARAMETER ID TO RETRIEVE 
D CLRQ = = SP) ALLOCATE AN 10SB 
F MOVL SP,RO 3 
SGETUPIW_S ITMLST=8(RO) . = [GET CURRENT PROCESS NAME 
TOSB=(RO) ,- : 
EN=#EXESC,SYSEFN 


E ; 
ADDL #624 sPOP_ ITEM LIST AND I0SB 
PUSHL SP sADDRESS OF PROCESS NAME 
#1,R1 sSET NUMBER OF ARGS 
MOVL #CLIS_RETURNED,RO sMESSAGE CODE 
BSBW DEL SE ORAMSG OUTPUT MESSAGE 
AD #8+16,SP 


18 
0 onfn tH 
ar : sCLEAN STACK 
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04 0C A6 803 
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ING COMMANDS 
O SUBPROCESS 


URITE CONTEXT 
Ef 


PAAARAAARAMAAAA AA AAA 


NAUNE W@W OONAUES WN O OODNAUNE 


WOO. 
Owooco 
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7 
B79 15$: BBC 


SVIVIOMOOMOooo 


: E 16S: BBC 


5 161$:  B68BC 


me eh eh eB ee a me ek a et a eB a mB BD DB a a a a a a a a 8 a ts 8 8S 8 


CREF ETRE TET ETA CTR CTU ETR ETRE T NCTC TR ETUCTU CTR CTR CTR CTR CTR CTE CTR CTU CTUCTUCTUCTUCTUCTUCTRCTUCTUCTUCTUCURETUCTUCTRCTUCTROWROUNOTDEVROWROTUSTUCTIOWIOVIOWNOTUOUDOVIOND 
RN wMMMMMoSo . . . . . . . . . . . . . . . . . . . . . . . 


-SBTTL WRITE CONTEXT TO SUBPROCESS 


: THIS ROUTINE WRITES THE PROCESS CONTEXT RECO 

: INITIALIZATION ROUTINE VIA THE CONTEXT MAILBOX. 
: A TYPE FIELD WHICH DISTINGUISHES THE DIFFERE 

; WHICH CAN GE PASSED FROM PARENT TO SUBPROCESS 

: INPUTS 

; R6 = ADDRESS OF SPWN STORAGE 

: OUTPUTS: 

F RO = STATUS CODE 

WRITE_CONTEXT: 


PUSHR #*M<R2,R3,R4,R5,R7> 


; CONSTRUCT THE HEADER CONTEXT RECORD, WHICH CONTAINS SUCH THINGS AS PROCESS 
; PRIVILEGES, ETC. 


MOVAB =CTX_C_MAXLEN(SP) , SP 
MOVZWL #CTX_C_HEADER,CTX_W_TYPE(R7) 
CLRQ = (SPY 


L 
PUSHAQ CTX_Q_PROCPRIV(R7) 
PUSHL #JPT$_PROCPRIVA16!8 


MOVL _SP,R 

SGETJPIW.S ITMLST=(RO),- 
SB=SPWN_Q_I0SB(R6),- 

ant EFN=#EXESC_SYSEFN 


H4eh 
CLRB = CTX_6_ FLAGS(R7) 


BBC #SPWN_V_WAIT, SPWN_W_FLAGS(R6) ,5$ 
SETBIT CTX_V7WAIT,CTX_B_FLAGS(R7) 


BBC #SPWN_V_AUTOLOGO, SPWN_W PL pes tne). 


SETBIT CTX_VTAOTOLOGO, CfX_B_FLAGS(R7 
SETBIT CTX_V“MODE,CTX_B_FLAGS(R?) 
SETBIT CTX_0_QERIFY,CTX_B_FLAGS(R7) 


#PRC_V_VERIMAGE 
SETBIT CTX_0_VERIMAGE ,CTX_B_FLAGS(R7) 


162$: BBS #SPUN_V_PROMPT,SPWN_W_FLAGS(R6) ,17 
MOVZBL PRC_B-PROMPTLEN(R117,RO : 
nove RO, CTR_B_PROMPTLEN(R?) 

MOVC3 PRC“W PRPTCTRL (R11) .~ ; 
TX_W_PMPTCTRL(R?) : 


ESEP=198s 28:25:95 EDEL TSR HSEAtN mans Paar a8) 


RDS TO THE SUBPROCESS 
NT TYPES OF INFORMATION 


3 SAVE REGISTERS 


#SPUN_V_MODE ,SPWN_W_FLAGS(R6) ,16$ 
#PRC_V_VERIFY,PRC_W FLAGS(R11),161$ : COPY VERIFICATION FLAG 
PRC_B_FLAGS2(R11), 
$ ; BRANCH IF EXPLICIT PROMTP 


GET PROMPT LENGTH 
: GET PROMPT STRING 


EACH RECORD HAS 


ALLOCATE BUFFER FOR CONTEXT RECORD 
save ape OF OF BUFFER 


R 
SET END OF ITEM LIST, RETLEN ADDRE 
SET ADDRESS OF BUFFER 
SET GETUPI ITEM CODE AND LENGTH 


ADDRESS OF ITEM LIST 
GET INFORMATION 


POP GETJPI ITEM LIST 
CLEAR THE FLAGS BYTE 
; BRANCH IF NOT SET 


15$ ; BRANCH IF NOT SET 


; BRANCH IF NOT SET 


162$ ; COPY IMAGE VERIFICATION FL 


03 OC A6 0194 
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TI<PROCESSING COMMANDS 
CONTEXT TO SUBPROCESS 


EF 


Oo 


= 
~“ 
sd 


FFE 1895 

iB 

: ! 38 MOVC3 
F 1 3 

Fi 1 18$: MOVL 
E18 1900 

Fi 1 MOVL 
Fi 1 5 BSBW 
1 i 
FIE 1 § $ 

FIE 19 3; WRITE 

FIE 19 3 

Fi 19 TSTW 
ral 131 geal 
F 191 

rs 31S auegy 
FeF 1915 

F31 13i$ 10$: MOVW 
F34 191 MOoVC 
37 13i8 

3 ths es 
F3E 1921 BSBW 
F41 19 § 19$: BLBS 
F44 19 BRW 
F47 1926 

rr 1908 2 

F47 19 § * 

F467 19 8 50S: BBS 
rae 19 an 
er 13 i : FIRST 

Fee 1938 

rat 1984 Sos: wow 
ie es 
F ° 1g 3 318: MOVL 
ree 195 ROVE 
mie Bi 
F7 1336 VB 
F7 1944 B1CB3 
F7A 1945 
a 
F 1 $8 MOVA 

F 194 MOVZBL 


"So $Ep=198¢ 28:25:20. 
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THE COMMAND STRING RECORD TO THE MAILBOX 


siete Q_CMDSTR(R6) 


SPWN_Q_CMDSTR(R6) ,- 
+ —CUMAXLEN@CTX_ “T_CMDSTR 


#CTX_C_MAXLEN@CTX_T_CMDSTR,- 
SPWN-G-CMDSTR(R6)~ 
#CTX~C"CMDSTR, CTX_W_TYPE(R7) 
SPUN Q”CMDSTR(R6) , 

SPUA_G CMDSTR#4(R6) .- 


chee] T~CADSTR(R7) 
WRITE_ MAILBOX 
RO,208 

90$ 


THE PROCESS LOGICAL NAMES TO THE MAILBOX 
sewn. V_LOGNAM, SPWN_W_FLAGS(R6) ,30$ ; 


WRITE ALL OF THE TABLE NAMES 


AX/VMS Macro V04-0 
DCL.SRCISPAWN.MAR; 


Page 41 


GET PROMPT LENGTH 
GET PROMPT STRING 


GET OUT-OF -BAND AST MASK 


COMPUTE SIZE OF RECORD 
WRITE THE REC ORD TO THE MAILBOX 
BRANCH IF ERROR DETECTED 


ANY COMMAND STRING? 
BRANCH IF NOT 
CHECK IF BIGGER THAN OUR BUFFER 


BRANCH IF OK 
ELSE, TRUNCATE STRING 


SET TYPE OF RECORD 


COMPUTE LENGTH OF RECORD 
WRITE THE RECORD TO THE MAILBOX 
BRANCH IF SUCCESS 


BRANCH IF REQUESTED 


act ¢ gL NATABLE CTX, W_TYPE(R7) ; SET LOGICAL NAME TAB 
G*CT Set LNMD IRE gh : GET PROCESS DIRECTORY 
LNABSL TABL erRS ck : GET IT's TABLE 
CHATHSC c CHILD CRSS” 3 : GET FIRST TABLE 
; GET NEXT TABLE 
POArisL NAME (RS) .R4 ger POINTER TO L 
sLNn SV" CONF INE LNMBSB_FLAGS(R4).33$ ; SKIP SUBTREE IF CONFINED 
ne _RCMODE (R4) ,APSLSC_EXEC : PRIV MODE TABLE? 
2$ DON'T COPY IF SO. 
LNABS ACMODE(R4) CTX_B _ACMODE (R?) : COPY ACMODE 
LNMB Flags (ha) ip B_TFLAGS(R7) : COPY NAME FLAGS 
ENATHSC HSC pay TESLMCa d CTR L -RUOTACR?) : COPY QUOTA 
AMTAB ABLECRZ) A PT BUFFER 


canes _ 


; NOW THAT THE TABLES EXIST, WRITE ALL OF THE LOGICAL NAMES 


N 14 
SPAWN = MULTI-PROCESSING COMMANDS 16-SEP-1984 00:17: AX/VMS Macro V04- Page 4 
v04-000 write ONT ESE TO SUBPROCESS pater 7 99:15:98 DCL.SRCJSPAWN.MAR; ” (48) 
D6 INCL RO : INCLUDE THE COUNT 
a PUSHR #*M<R4,RS> : SAVE REGS 
63 61 MOVCS RO, (R15, (R3) : COPY NAME 
BA POPR #*A<R4,R5> + RESTORE REGS 
1 ODAS OD 4 MOVL  LNMTHSL_PARENT(RS) ,R1 : PTR TO PARENT 
1 Al OD VL —_— LNMTHSL"NAME(R1) R41 + PTR TO PARENT'S LNMB 
1 1141 bE A MOVAL LNRBS RAME(R1),A1 + PTR TO NAME 
50 1 A A MOVZBL (R1),RO : LENGTH OF TABLE NAME 
D6 OFA 5 INCL RO : INCLUDE THE COUNT 
BB Ad 195 PUSHR #*M<R4,R5> t SAVE REGS 
63 61 AB MOVCS RO, (R15, (R3) : COPY TABLE NAME 
BA OFAF POPR #°A<R4,R5> : RESTORE REGS ; 
53 C B1 SUBL2 R7,R * COMPUTE SIZE OF CONTEXT RECORD 
02 a7 92 A B4 SUBWS © #CTX_W_ENTSIZE,R3,CTX_W_ENTSIZE(R7) ; SET SIZE 0 RY 
91 oe B9 BSBW WRITE MAILBOX : WRITE THE RECORD TO THE MAILBOX 
; 50 E BC BLBC : QUIT ON ERROR 
50 11A5 D B 66 328: MOVL LNATHSL_CHILD(RS) ,RO 3 GET CHILD TABLE PTR 
25 «1 6 BNEG 10$ : AND PASS IT. 
50 1585 D 68 33$:  MOVL GNATHSL_SIBLING(RS) ,RO : SIBLING TABLE? 
FS 9 : BNEQ 10$ : AND PASS IT. 
55 op AS OD 8 MOVL § LNMTHSL_PARENT(RS) ,RS : GET SIBLING OF PARENT TABLE 
50 A5 og fF 197 MOVL ENATHSLISIBLING(RSS .RO : AND PASS IT 
156 «1 : 7 BNE 10$ 
7 
7 
? 
7 
7 
7 
: 


TRH ae 
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ce ce ee we eh ect PD eB ee me ed me met a aD ed Ba AB ed BD ed a Sd 


67 06 00 MOVL § #CTX_C_LNMNAME,CTX_W_TYPE(R7) ; SET LOGICAL NAME TYPE 
54 00000000°GF 0D 8 VL  G*CTCSGL_LNMHASH,R& : GET POINTER TO HASH TABLE 
54 64 D F LNMHSHSL MASK (R45 ,R4 ; GET SIZE MASK 
4 06 2 INCL R64 : CONVERT TO SIZE 
OOAC 31 4 34$:  BRW 38s : LOOP 
0127 31 7 92$:  BRW 90$ sHELPER BRANCH 
FF74 = 31 A 310$:  BRW 31$ ; SHELPER BRANCH 
55 65 D 35$:  MOVL (RS),RS : GET NEXT LINK IN CHAIN 
f2. 1 BEQL 348 ; 69 TO NEXT CHAIN IF NONE 
F6 10 AS 91 3! BBS #LNMBSV_CONF INE ,.LNMBSB_FLAGS(R5).35$ ; SKIP NAME IF CONFINED 
F1 10 A5 ; f BBS #LNMBSV" TABLE ,LNMBS$B FLAGS (RO) .558 : SxIP NAME IF TABLE 
01 OBA 1 CMPB ,NABSB_ACRODE (RS) ,#PSL C_EXEC °; PRIV MODE TABLE? 
6 1 99 BLEQU 35$ * DON'T COPY IF SO. 
04 A? A 1 99 MOVB LNMBSB_ACHODE (RS) CTX_B_ACMODE(R?) 3 COPY ACMODE 
SA? (110A 1 43 MOVB = LNMBSB" FLAGS RD) CTx_6_RFLAGS(R7) : COPY NAME FLAGS 
33 A? (OE 1 MOVAL CTX 1 CNMNAME(R75,R : PTR TO BUFFER 
1 OC AS 00 1 99 VL LNMBse TABLE (RS) .R1 : PTR TO TABLE 
31 Al. B 1 996 VL —sLNMTHSC_NAME(R1).R1 : PTR TO TABLE'S LNMB 
0 1141 9A 1018 199 MOVZBL LNMBST_RAME(R1) .RO : LENGTH OF TABLE NAME 
D6 101C 998 INCL : INCLUDE THE COUNT 
BB 1 PUSHR  #*M<R4,R5> : SAVE REGS 
63 111 1 9 MOVC3 RO,LNMBST NAME(R1),(R3) + COPY NAME 
BA 1 POPR  #*A<R4, : RESTORE REGS 
50 1A ; 1 ; MOVAB LNMBST_NAME(RS) .RO : PTR TO NAME 
D4 10208 CLRL : COUNT # OF XLATIONS 
A 11 1020 4 BRB 1$ - TRY NEXT ENTRY 
0E 60 ; EO 102F 5 350$:  8BS BLNRXSV_XEND ,LNAXSB_FLAGS (RO) 3528 > BR IF END OF LIST 
D6 1033 6 INCL =R ; COUNT THIS XLATION 
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63 61 
02 A7 33 2 
AD 
75 50 
1D 
18 OC AG 600 
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7E 5 
50 00038218 Sr 
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WRITE CONTEXT f 


BOSE SRO>S Lmveno-osm 


oOo 
> 
ee cee mm ee me me em me ee me ee ee ee ee ed ed ed od ed 8 od SD 2 2 wd dd 2 dd St 
0D 0D 0D OD Op (Dp CD > ft 50D 0D 0D CG 


at 
Bet 


r~ 


FPS ODNA NE WIN 2 S ODNA NLS NS ODNANE UW QWODNAUNE 


WIS OONAUW 


ING COMMANDS 
O SUBPROCESS 


"SESS BBEL8:95 WELSCH EAaw mans 


MOVA NMXST_XLATION(RO) RO : POINT TO STRI 

3518 ROVzBL RO)+,R1 ; ger LENGTH Neus STRING 
ADDL RO + SKIP VER I 
BRB és : TRY NEX ENTRY 

3528: MOVB R2,CTX_8 TRANCNT (87) : SAVE COUN 
MOVAB LNABST-NAME(RS) ,R1 + ADDR OF NAME AGAIN 
INCL : COUNT TERMINATION BYTE 
SUBL2 R1,R0 : COMPUTE SIZE NEEDED 
MOV CTX_C_MAXLEN(R7) ,R2 : GET END ADDR OF CTX 
SUBL2 &3,R + BUFFER SPACE REMAINING 
cHPL R ; NAME AL FIT? 
BGTRU $ pret 
PUSHR  #°F<R4,RS> + SAVE REGS 
MOVCS RO,(R15,(R3) : COPY NAME AND XLATIONS 
POPR #*A<R4,R5> + RESTORE REGS 
SUBL2 R7,R : COMPUTE size OF CONTEXT RECORD 
SUBWS © #CTX_W_ENTSIZE,R3,CTX_W_ENTSIZE(R7) ; SET SIZE OF Y 
BSBW WRITE MAILBOX : WRITE THE RECORD TO THE MAILBOX 
BLBC RO 498 ¢ QUIT ON ERROR 
BRB 37§ + ONTO THE NEXT NAME 

3; DEAL WITH RECORDS TOO LONG FOR ONE MAILBOX MESSAGE 

; (FOR NOW, ISSUE THE SYMBOL TOO LONG’ ERROR. 

36S: BC #SPWN_V_LOG,SPWN_W_FLPGS(R6),37$ ;BRANCH IF /NOLOG SPECIFIED 
PUSHAB 1(R1) : PUSH DESCRIPTOR OF THE 
MOVZBL (R1),=(SP) : LOGICAL NAME 
PUSHL SP : ADDRESS OF THE DESCRIPTOR 
MOVL #1,R1 : SET NUMBER OF ARGS 
MOVL  #CLI$_SYMTOOLNG,RO : MESSAGE C 
BSBW DCLSFORMMSG : OUTPUT MESSAGE 
ADDL #4*2,SP : CLEAN STACK 

37$: BRW 35$ + PROCESS NEXT SYMBOL 

38$:  MOVL  G*CTLSGL_LNMHASH,RS : GET ADOR OF HASHTABLE 
MOVAL LNAWSHSC_BUCKET~4(R5)CR4J,R5 : GET ADDR OF BUCKET 
SOBGEQ R4,37$ : LOOP OVER ALL CHAINS 

3 WRITE THE DCL GLOBAL SYMBOLS TO THE MAILBOX 

hos: BBC #SPWN_V_CLISYM, SPWN_W_FLAGS(R6),45$ ; BRANCH IF NOT REQUESTED 
MOVAB PRC_Q~GCOBAL(R11),R& : GET ADDRESS OF GLOBAL LISTHEAD 
MOVB #CTX_C GLOBAL,CTX.B_SYMTAB(R7) ; SET WHICH SYMBOL TABLE 
BSBW «= WRITE_SYMBOLS ; WRITE ALL GLOBAL SYMBOLS 
MOVAB PRC_Q~LOCAL(R11) ,R4 t GET ADDRESS OF LOCAL LISTHEAD 

VB CTR C_LOCAL,CTX.B_SYMTAB(R7) : SET WHICH SYMBOL TABLE 

BSBW WRITE_SYMBOLS : WRITE ALL LOCAL SYMBOLS 

: WRITE THE KEYPAD STATE TO THE MAILBOX 

ss BBC #SPUN_V_KEYPAD SPUN W_FLAGS(R6),50$ ; BRANCH IF NOT REQUESTED 
MOVAB PRC_Q7~KEYPAD(R11) RZ > GEf ADDRESS OF KEYPAD LISTHEAD 
MOVE #CTR C_KEYTABL,CTX_B_SYMTAB(R7) ; SET WHICH SYMBOL TABLE 
BSBW «= WRITE_SYMBOLS : WRITE ALL KEYPAD SYMBOLS 


SE 
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- TI-PROCESSING COMMANDS 16-SEP- 117: AX/VMS Macro V04 P 44 
ani TE LONTEA 4 SUBPROCESS or 3 e- 1382 99:15:93 LOCL SRCISPAUN RAR. age 16) 
7 0 8B ¢ MOVW &#CTX_C_KEYSTATE,CTX_W_TYPE(R7) ; SET TYPE OF RECORD 
52. 4C 8 D MOV PRE CCCASTKEY Cat yao : GET ADDR OF raat KEY STATE 
5 A 10D § MOVZBL (R2T+>R1 ; GET DESCRIPTOR 
02 D MOV Ri. Crk B_KEYLENGTH(R7) : COPY THE LENGTH 
D move Ri. Rey 01K. WKEYSTATE(R7) ; COPY THE STRING 
10€ SUBL R7._R : COMPUTE LENGTH OF RECORD 
90 10€ 8SBW write MAILBOX : WRITE THE RECORD TO THE MAILBOX 
2 E : , 49$: BLBC R0,90S : BRANCH IF ERROR DETECTED 
1 73: 
1 ES 74 : WRITE AN END-OF FILE TO THE MAILBOX AND WAIT FOR COMPLETION, SO THAT 
1 34 75 ; WE DON'T DELETE THE MAILBOX BEFORE THE SUBPROCESS EVEN GETS A CHANCE 
! : 6 3 TO ASSIGN A CHANNEL TO IT. 
1 3 78 50$: $Q10W_S FUNC=#10$_WRITEOF,- ; WRITE AN EOF TO MAILBOX 
10€ 7 CHAN=SPWN-W_CHAN(R6),- ; 
10€9 1OSB=SPWN-Q-IOSB(R6).- : 
10€9 EFNSAEXESC_SYSEFN 3 : 
50 €9 110A : BLBC : BRANCH IF ERROR 
50 a6 «63C)s«1100 MOVZWL SPWN_Q_IOSB(R6),RO 3 GET I10SB STATUS 
04 ce —€ 1111 4 90$:  MOVAB. CTX C MAXLEN(SPS sP : DEALLOCATE RECORD BUFFER 
00BC 8F BA 1116 3 POPR #°MZRZ,R3,R4,R5,R7> : RESTORE REGISTERS 
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ING ANDS 19-8 Pe AX/VMS Macro V04 
73) tbn XT MAILBOX §-§ set 99: HS 93 DCL. SRCJSPAWN.MAR; 
«SBTTL WRITE RECORD TO CONTEXT MAILBOX 
3 WRITE A RECORD TO THE MAILBOX WITHOUT WAITING FOR A READER 
; INPUTS: 
36 : R6 = ADDRESS OF SPWN STORAGE 
96 : R7 = ADDRESS OF RECORD TO BE OUTPUT 
3 ; R3 = LENGTH OF RECORD TO BE OUTPUT 
; OUTPUTS: 
; RO = FINAL STATUS 
4 WRITE_MAILBOX: 
5 BsBu CHE HANGUP ; CHECK FOR HANGUP 
10W_S FUNcsPi0s- TWRITEVBLK!10$M_NOW,- WRITE T 
CHAN=SPWN-W_CHAN(R6) ,- ; 
3 EFN=#EXESC SYSERN - 3 
1OSB=SPUN a jose (Re) ,- : 
10 P1=(R7) ,P2=R : ADDRESS/LENGTH oF BUFF 
11 BLBC —_—«aRO, + BRANCH IF ERROR 
1 MOVZWL SPWN_Q_IOSB(R6),RO : GET FINAL STATUS. 
13 90$: RSB 


AST 
O MAILBOX WITHOUT WAITING 
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NG COMMANDS 16-SEP-1984 00:17: AX/VMS ro V04- P & 
S IN A SYMBOL TABLE 23 Pa 1984 $9715:93 LOCC SRCISPAUN MAR; — 48) 
«SBTTL WRITE ALL SYMBOLS IN A SYMBOL TABLE 
ht L THE syneo. RECORDS TO THE MAILBOX FROM A 
IED SYMBOL TABLE, 
INPUTS: 


CTX_B_SYATAB( 


¥ TYPE OF SYMBOL TABLE 
RG = ADORE 


= TYP 

$$ sre TABLE LISTHEAD 
Rg = ADDRESS OF SPWN 

R7 = ADDRESS C x 

OUTPUTS: 


RO-RS DESTROYED. 


4 
0 
1 
§ WRITE_SYMBOLS: 
7 Q3 B80 MOV wcTX C_CLISYM,CTX_W_ TYPE(R7) SET TYPE OF RECORD 
5 5 0 5 MOVL RS avé se END-OF “LIST CHECK 
4 64 D 6 45$:  MOVL Reet R4 3 : oer NEXT SYMBOL ENTRY IN LIST 
5 54 OD CMPL 4,R5 : END OF LIST? 
43. «1 8 BEQL o$ * BRANCH IF SO 
SSUME SYM_K_STRING EQ CTX_C_STRING 
40 ASSUME SYM“K"PERM EQ CTX_C-PERM 
41 ASSUME SYM“K"BINARY EQ CTX7C BINARY 
4g ASSUME SYN-K-KEYPAD EQ CTX"C7KEY 
0S A? OA AG 90 4 VB SYM"B-TYPE(R4) ,CTX SYRYYPECR?) copy SYMBOL TYPE CODE 
06 A7 aa «690 44 vB SYR“B"NONUNI GUE ¢ CRAY CTX -B_NONUN MY) COPY UNIQUENESS POINT 
30 CAG OA 45 MOVZBL SYM~T~SYMBOL(R4) ,RO z GET Ct: hes OF SYMBOL NAME 
0 AM 91 46 CMPB SYRCB=TYPECR4) . ASV ¥ =BIRAR BINARY VALUE? 
3 lg 4 BNEQ 7$ Rai H T 
50 4 ¢ ADDL #41,R0 : COMPUTE LENGTH OF ASCIC NAME + VALUE 
51 gp Aaao 47S: v SiH T gi VNBOL +1 (R4)CROI, R1 ; ADDRESS OF WORD-COUNTED VALUE STRING 
| ane 1 MOVZWL sh : Get LENGTH OF VALUE STRING 
50 : Al4 j V (RI ie ROJ,R COMPUTE LENGTH OF ASCIC NAME + VALUE 
03F9 5 é 48$: CMPW #<CTX 7¢ ROAXLEN@CTX.. T iveos' WILL SYMBOL VALUE FIT? 
1 A 4 BGTRU 6 § : IF LARGER, THEN NO 
BB g PUSHR #*F<R4,R5> SAVE REGISTERS 
07 A? OC: AG ; MOVC RO, SYM.T_SYMBOL(R4) .CTX_ _SYMBOL(R7) ; MOVE NAME + VALUE 
BA POPR #*A<R47R5> s"RESTORE REGISTERS 
53 C 8 SUBL_ R7_R COMPUTE SIZE OF RECORD 
02 a7 SUBW3 act W gENTSIZE. R3,CTX_W vin SIZE(R7) ; SET SIZE OF ENTRY 
1 9 8583 wait TE_AA 3 WRITE RECORD TO MAILBOX 
85 (1 BRB : LOOP UNTIL TABLE EXHAUSTED 
05 508: RSE 


ce cc em em ee me ee ee me a a ea ee ed ed ed od oe = od 8 8 4 SS 3 2 2 3 — 
a em mm a a a = od = = 2 2 a Sd 2 2 2 3 
Pry iO: ne gm ee te ee 
ee em me ee ee re ee me ee ee em ea ee ee ee ae ed ed od od ed = = SS 2d 2 2 8 — 8 SS 2 


IZED SYMBOL. 
THAT WE ARE 1GNOR ING IT AND THEN PROCEED. 
AF OC A600 3 : dos: aac #SPUN_V_LOG, SPUN W_FLAGS(RG) 45$ ;BRANCH IF /NOLOG SPECIFIED 
E AG MOVAB SYM_T"SYMBOL+1(RZ)--(SP); PUSH DESCRIPTOR OF THE 
7E OC AG OA 9 MOVZBL SYM"T“SYMBOL(R4),-(SP) ; SYMBOL NAME 
SE DD 7 PUSHL SP 3: ADDRESS OF THE DESCRIPTOR 


caIVETHCRMOCRSSING COMMUNE, agi e — 'ECEEBI9E4 Q0:1Z:95 ANIA Macro vose00 Page 47 


1 1a8 } MOVL AR} 3 SET NUMBER oF ARGS 
AD MOVL #CLI$_SYMTOOLNG,RO ; sige COD 
E49" 196 1 BSBW oye FORMMSG 3 OUTPUT MESSAGE 
§ 118 17 ADOL #4*2,SP : CLEAN STACK 
\ien 176 BRW 45$ : PROCESS NEXT SYMBOL 


Se 
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= MULTI-PROCESSING COMMAND 16-SEP-1986 00:17: AX/VMS Macro vO4e0 Page 4 
CHELE Ich PERD ING HANGUP AST pan ioe ri 99:15:93 DCL. SRCJSPAUN ad (38) 

118 «SBTTL CHECK FOR PENDING HANGUP AST 

118D 2181 ;: 

118D 2182 : THIS ROUT INE Is CALLED TO CHECK IF A HANGUP AST HAS COME IN SINCE 

1180 i $ WE STARTED THE COMMAND EXECUTION. IF SO, THE PROCESS IS TERMINATED. 

1180 5 : INPUTS: 

1180 ; R11 = ADDRESS OF PRC AREA 

1180 2189 : OUTPUTS: 

118D 2190 : 

118D 2191 : NONE 

11BD 2192 :-<< 

11BD 21 

118D 2194 CHECK_FOR_HANGUP: 

11BD 2195 BBC #PRC_V HANGUP , PRC_W_FLAGS(R11) ,90$ ; BRANCH IF NO HANGUP PENDING 

1i¢2 oom BRw DCLERESTA : ABORT PROCESS 
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= MULTI-PROCESSING COMMANDS 16-SEP-1984 00:17: AX/VMS Macro V04- Pa 
CREATE ouTPuT MAILBOX §-§ b=} 98 99:15:93 YELL ERCTSPAGN MARS - 39) 
~SBTTL CREATE OUTPUT MAILBOX 
1 ¢ THIS ROUTINE IS CALLED TO CREATE AN OUTPUT MAILBOX FOR THIS PROCESS TO 
4 ; RECEIVE WRITE REQUESTS FROM ITS SPAWNED SUBPROCESSES. 
4 : INPUTS: 
1 65: Rs = ADDRESS OF SPWN DATA STRUCTURE 
1 46 : RB = ADDRESS OF SCRATCH AREA 
} 4 ; R11 = ADDRESS OF PRC DATA STRUCTURE 
} : OUTPUTS: 
i ; RO = STATUS CODE 
1 e 
i 4 CREATE_OUTMBX: 
1 3 
§ : GET PID OF PARENT. 
= Ss § ? CLRQ = =(SP) : CREATE GETJPI ITEM LIST 
FB AE OF 120A 60 PUSHAB -8(SP) + SET BUFFER ADDRESS 
03199004 oF DD 1 p PUSHL #JPI$_P1Da16+4 : REQUEST OUR PID, SET BUFFER LENGTH 
0 SE 00 121 MOV SP,R : GET ADDR OF ITEM LIST 
121 . SGETUPIW_S ITMLST=(RO),- : GET PID OF THIS PROCESS 
121 EFN=#EXESC_SYSEFN,- : 
127 5 1OSB=SPWN_G_I0SB(R6) ; 
30 BED 1 F POPL R + GET OUR PID 
5E C : ADDL #324 ,SP 3 CLEANUP STACK 
1 : 
4 £0 3 CREATE MAILBOX LOGICAL NAME. 
7E 68 7D 1 72° mOVa = (RB) ,= (SP) : PUSH LOG NAME DESCRIPTOR 
52 EDFO CE 9E 1237 207 MOVAB OUTPUT_NAME,R2 : GET ADDRESS OF ASCIC FAO STRING 
1 82 QA 123C 227% MOVZBL (R2)+,R1 + CONSTRUCT DESCRIPTOR OF STRING 
—E 51 7D 103F 2075 MOVG ~=—s- R'1,-( §P) t PUSH DESCRIPTOR ONTO STACK 
51 5E 00 126 7 MOVL P-R1 : GET ADDR OF ARGS 
124 7 $FAO_S CTRSTR=(R1),- : CONSTRUCT LOGICAL NAME 
124 8 QUTBUF =B (R15 ,~ 3 
124 ? TLEN=8(R1).= ; 
1 9 Pik : FROM PID FOR THIS PROCESS 
SE 08 co 1 6 ADDL  #8,SP : POP THE FAO DESCRIPTOR 
28 A6 1 ; MOVG  (SP)+,SPWN_Q OUTPUT(R6) : GET LOGICAL NAME DESC 
4 C2 1250 SUBL  SPWN_G_OUTPUT(R6) , (RB) + PERMANENTLY REMOVE FROM SCRATCH 
CO 1261 4 ADDL § SPWN~Q"OUTPUT(R6),4(R8) : P NTLY REMOVE FROM SCRATCH 
1 5 BLBS RO 20$ : BRANCH IF SUCCESSFUL 
1 6 BRW § 3 H IF ERROR DETECTED 
1 C 10$ BRW 0s : EXIT SUCCESSFULLY 
126F 3 
i 5 : CHECK FOR ALREADY EXISTING MAILBOX. 
CE CB 126F 20$:  INCW  PRC_W_OUTMBXREF (R11) : INCR THE MAILBOX REF COUNT 
01 itd: CB gf 1273 38 CMPW 39s PRC“WOUTMBXREF (R11) #1 : DOES MAILBOX ALREADY EXIST? 
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= MULTI-PROCESSING COMMANDS 16-SEP-1984 00:17: AX/VMS Macro V04- Pa 1 
CREATE OUTPUT MAILBOX §-§ b=1 98 99:15:98 DCL.SRCJSPAWN.MAR; ™ Gt) 
F212 f 4 BNEQ 10% : YES, THEN SKIP MBX CREATION 
& $ 
A § ; GET MAXIMUM MESSAGE SIZE. 
we eS th 25$: CLRQ =<(SP) : CREATE THE ITER LIST 
FR AE OF 1 ge PUSHAB =8(SP) : SET THE BUFFER ADDRESS 
104F gr bp 107F PUSHL #SV1$_MAXBUFa16+4 ; SET THE ITEM CODE AND BUFFER SIZE 
— 00 1 VL oR : GET ADDRESS OF ITEM LIST 
1 SGETSYIW_S ITMLST=(RO),- : GET MAX BUF SIZE 
1 4 EFN=#EXESC_SYSEFN,- : 
1 5 1OSB=SPWN_G_10SB(R6) : 
1 8ED0 12A : GET THE MAXMSG SIZE 
SE CO 120A ADDL #3*4,SP : POP Tren LIST 
F 5 1 RN} BLBC =E_—s«WRO9 F eTU N IF ERRO 
50 ¢ 120A MOVZWL SPUN Q_10SB(R6) RO : GET 10SB STATUS 
3 E9 12AD 231 BLBC ‘ : RETURN IF ERROR 
oocc cB «51—Ss«BO 8 i MOVW = R1,PRC_W_OUTMBXS1Z(R11) + SAVE THE MAXMSG SIZE 
128 13 ; 
1 8 af : CREATE THE OUTPUT MAILBOX. 
128 1g SCREMBX_S CHAN=PRC_W_OUTMBXCHN(R11),- ; CREATE A WRITE MAILBOX 
128 1 MAXMSG=R1,= ; 
128 18 UF QUO=R1,- ; 
128 1 LOGNAM=SPWN_Q_OUTPUT (R6) : 
3850 €9 i CD p BLBC }3=E._—«aR OO, 95S : BRANCH ON ERROR 
12D ; 
1 p § : SET WRITE ATTENTION AST ON THE MAILBOX. 
1 5° $Q10W_S FUNC=#10$ SETMODE!IOSM_WRTATIN,- ; SET ATTENTION AST ON MAILBOX 
12D 6 CHAN=PRC_@_OUTMBXCHN(RT1) ,- : 
12D EFN=#EXESC SYSEFN, = ; 
12D 8 1O0SB=SPWN GO IOSB(R6) ,- : 
12D Pi=W*WRITE_AST,- : ADDRESS OF AST ROUTINE 
12D 0 P2=R11 : PASS PRC BLOCK ADDRESS 
F 50 § 12F 1 BLBC 8=—._s«R0, 95S : BRANCH IF ERR 
50 38 As ¢ 12F 2 OV ZL SPWN_Q_IO0SB(R6) ,RO : GET [OSB STATUS 
850 €9 12fD BLB : BRANCH IF ERROR 
4 908: STATUS NORMAL : SET NORMAL STATUS 
05 1$:  RSB : RETURN 
; : 
1 ; : DELETE WRITE MAILBOX AND RETURN WITH STATUS 
5 D } $5$:  PUSHL RO : SAVE STATUS 
009 130A 1 BSBW DELETE_OUTMBX : DELETE ALLOCATED MAILBOX 
: ae g POPL R F RESTORE STATUS 


BRB 918 


es 
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= MULTI-PROCESSING COMMANDS 16-SEP-1984 00:17: AX/VMS Macro V04- Pp 
DELETE WRITE MAILBOX §: aah 7 90315398 DCL. SRCISPAWN.MAR; — (33) 
' i .SBTTL DELETE WRITE MAILBOX 
13) 47: 
48 ; THIS ROUTINE IS CALLED TO DELETE A WRITE MAILBOX. 
i : INPUTS: 
i ; R11 = ADDRESS OF PRC AREA 
131 4 : OUTPUTS: 
131 ; 
1 $ N 
13 j= NONE 
131 $ DELETE_OUTMBX: 
OOCE cB 87 131 6 ECW pre W_OUTMBXREF (R11) : DECR THE MAILBOX RE® COUNT 
2 131 iis 90 : SKIP IF NON-ZERO 
1 : DASSGN _S_CHAN=PRC_W_OUT XCHN(RIT) : DELETE OUTPUT MAILBOX 
OOCA CB 84 , pe cLRW “PRC_W_OUTMBXCHN(R ; CLEAR MAILBOX CHANNEL NUMBER 


Ss 


L 15 a /. 
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1 «SBTTL WRITE REQUEST AST FROM A SUBPROCESS 
1 ; 
1 3 THIS AST ROUTINE HANDLES A WRITE REQUEST FROM A SUBPROCESS 
3 THROUGH THE WRITE MAILROX ASSOCIATED WITH THIS PROCESS. 
; : INPUTS« 
i 4 ; GAP) = ADDRESS OF PRC AREA 
i i : OUTPUTS: 
1 ; NON: 
: 8 3ee 
1 ur WRITE_AST: 
087¢ 3 .WORD “M<R2,R3,R4,R5,R6,R11> 
5B 04 AC 00 4 MOVL 4(AP),R11 : GET ADDRESS OF CLI PROCESS WORK AR 
1 
$i: 3 IF WANGUP AST IS PENDING, THEN WAKE UP SO THAT WE CAN TERMINATE. 
7A 68 AB OOC:”CtéC«é#EC) i ie ‘ BBS #PRC_V_HANGUP,PRC_W_FLAGS(R11),80$ ; WAKE UP IF HANGUP PENDING 

1 91 ; 
9 RE-ENABLE WRITE ATTENTION AST. 

re ze 43 34 : cura (SP) : ALLOCATE wn 10S8 
1 9 $Q10W_S FUNC=#10$_SETMODE! 10$M_WRTATIN - RE-ENABLE AST 
1 9 CHAN=PRC_@_OUTMBXCHN(RT1) ,- ; 
4 98 EFN=#EXESC"SYSEFN, = : 
1 99 1OSB=(R4) : 
1 400 P1=WRITE_AST,- : ADDRESS OF AST ROUTINE 
4 : P2=R11 : ADDRESS OF PRC DATA STRUCTURE 
4 4 ; 
4 4 t ALLOCATE A RECORD BUFFER AND 10SB. 

55 00cc cB 3c 1 4 6 , BOVZUL PRC_W_OUTMBXS1Z(R11),R5 : GET SIZE OF RECORD BUFFER 

3E t2 1 4 SUB R3. Sp” : ALLOCATE RECORD BUFFER 

520 OSE Ooi 4 ; ROVE SP-R2 : GET THE BUFFER ADDRESS 
1 410 ; 
1 411 : GET RECORD TO BE WRITTEN FROM THE MAILBOX. IF THERE IS MORE THAN 
aig 3 ONE MESSAGE IN THE MAILBOX, LOOP UNTIL WE'VE READ AND WRITTEN THEM ALL. 
1 414 108:  $alow_s FUNC =# 108 READVBLK | 108M NOW,- ; READ THE ATTACH MAILBOX 
1 615 CHAN=PRC_@ -SUTRBX cHN (R1T) ,= F 
Heh $18 fering : 
1 418 Pi=( t ADDRESS OF BUFFER 
1 41 P aoe : SIZE OF BUFFER 

150 «6&9 (1 6 p BLBC —E-—«aRO,, 3 $ : BRANCH Hi DSW ERROR 
64 53 1 4 BLBc §83—-—sa(R4) , 208 : BRANCH IF 1/0 ERROR 
51 02 Ad 1 422 CVTWL 496-2 (R4S RI + GET LENGTH OF MESSAGE 


yoe-000 URITE REQUEST AST OHNO eocess yt ee ees ts Sto ths Page (34) 


' W SSPAWNOUT : WRITE THE MESSAGE 

Ces 2 é é ; Bae tt a: + LOOP UNTIL MAILBOX CLEANED OUT 
6870 8F 64 8 A 4 208: cre (R4) ,#SS$_ENDOFFILE ; WAS ERROR EOF? wold uaa 

04 AG Al 34 a 4(R4) + WAS PID SPECIFIED? 
C2 13A4 34 BNE 0$ > YES, THEN KEEP READING TO EMPTY 

ne iS 4 a STATUS NORMAL ; SET NORMAL STATUS 

i ne ¢ 3 80$: SWAKE_S ; WAKE UP CURRENT PROCESS 
04 1 434 RET 
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«SBTTL READ AST FROM READING ATTACH REQUEST RESPONSE 


THIS AST ROUTINE IS CALLED UPON THE COMPLETION OF READING THE 
ATTACH REQUEST het wee IT DLES THE PROCESSING OF THE 
DETACHED FLAG. I {s DOWN AT AST LEVEL TO INSURE ht 2; am 

ETWEEN THE CURRENT PROCESS AND THE PROCESS TO BE ATTACHED. 

THE ADDRESS OF A QUAD WORD IS PASSED AS THE AST PAR AME TER. THE QUAD WORD 
CONTAINS THE INPUT BUFFER FROM THE READ COMMAND (1ST LONG WORD) AND 

THE ADDRESS OF THE PRC TABLE AREA (2ND LONG WORD). 

INPUTS: 

4(SP) = AST PARAMETER 

OUTPUTS: 


PRC_V_ DETACHED ait IN PRC_W_FLAGS SET IF INPUT BUFFER = 1 
CLERRED OTHERWISE 


EAD_AST: 
WORD “M<R2,R11> 


: GET pee OF QUAD po ee, BUFFER 


MOVL 4(R2).R11 : Ger ADDR. OF CLI PROCESS WORK AREA 
BLBC (R2),10$ : DON'T SET DETACHED BIT IF ATTACH REFUSED 
SETBIT PRC_V_DETACHED,PRC_W_ FLAgSKRIT) 3 MARK CURRENT PROC. DETACHED 


: 


ATTAE 


SHERRY FROM ven mocess “ERC OUU:NG WAU Sy 


RE 
} cp 468 «SBTTL ATTACH REQUEST AST FROM ANOTHER PROCESS 
13¢D 3670 ; 
13CD 2471 ; THIS AST ROUTINE HANDLES AN ATTACH REQUEST FROM ANOTHER PROCESS 
cp 4 3 THROUGH THE ATTACH MAILBOX ASSOCIATED WITH THIS PROCESS. 
cD ‘ : ; INPUTS: 
cD 4 5 ; 4C(AP) = ADDRESS OF PRC AREA 
13¢D t3 : OUTPUTS: 
13CD 2679 ; 
13CD 3480 ; NONE 
13D 2483 ATTACH_AST: 
087¢ cp 4 4 -WORD “M<R2,R3,R4,R5,R6,R11> 
04 aC DO 13CF 36 : MOVL  4(AP),R : GET ADDRESS OF CLI PROCESS WORK AREA 
FO A 9 1303 24 MOVAB <ATTABX, TAAXMSG(SP). R6 =: ALLOCATE RECORD BUFFE 
5 1307 24 : MOVL R6,S : REMOVE IT FROM THE STACK 
Bh 
DA 491 : IF HANGUP AST IS PENDING, THEN WAKEUP PROCESS SO WE CAN TERMINATE 
oc £0 DA a38 ’ BBS #PRC_V_HANGUP,PRC_W_FLAGS(R11),80$ ; WAKE UP IF HANGUP PENDING 
13D 2495 ; 
1 DF 496 : GET THE ATTACH REQUEST MESSAGE FROM THE MAILBOX. IF THERE IS MORE THAN 
i DF 49 ; ONE MESSAGE IN THE MAILBOX, ONLY HONOR THE LAST ONE. 
53 b4 130 498 CLRL aR : ASSUME NO MESSAGE READ 
E ¢ 1 3 CLRO RiP) : ALLOCATE AN 10SB 
SED ES 1 MOVL  SP,R2 : POINT TO IT 
1 E $ 10$: $al0w_s FUNC= 108 READVBLE! 108M. NOW,- ; READ THE ATTACH MAILBOX 
13€ 5 EFNsAEXESC_SYSEPN, - 
13€ OSB=(R ( 
: 1 P =(R6) oS PATTNOX _MAXMSG 
50 69 1% 0 BLBC 0$ ; BR IF ERROR 
6 9 14 BLBC Rds 208 : BRANCH IF ERROR (EOF) 
A ‘ 14 1 CVTWL ae : SAVE LENGTH OF LAST MESSAGE 
p 141 1 BRB ; LOOP UNTIL MAILBOX CLEANED OUT 
03 141 12 208:  TSTL : ANY ME AGE READ? 
48 1 1616 1 BEQL 50s ; IF NOT. IGNORE ATTENTION AST 
D4 141 1 CLRL RG ASS Ri aia $ “NO” 
F £1 161A 251 BBC #PRC_V_DETACHED,PRC_W FLAGS ER 1),30 F NOT DETACHED, SAY NO 
6 06 141F 1 INCL = RG ; ELSE RESPOND WITH YES 
E DO 1421 2517 30$:  MOVL  SP,R2 ; RES ORE ADDRESS OF 1058 
DO 14 4 18 MOVL RG. (RG) : MOVE RE RECORD INTO RECORD BUFFER 
14 1 $Q10w_S FUNC=#10$ wai TEvaL : WRITE YES/NO RESPONSE TO MAILBOX 
14 p CHANEPRC Mm ATT R11) =; 
16 FENSOEXES “SYSEFN,= ; 
14 5 pi=(he) P om ONLY A LONGWORD 
1650 €9 1447 4 BLBC : BRANCH IF ERROR DETECTED 


f 


168 & 


ATTACH REQUEST AST 


144A 
144 


143 


04 146 


ie 


FROM ANOTHER cae 


LBC 
LBC 


RET 


(R2) ,90$ 
et 


$ 
neh PRE_V_DETACHED PRC_W_ ndstin 
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; »SBTTL SUBPROCESS TERMINATION AST ROUTINE 


me 
& 
vo 
D> 
o- 
om 


; THIS AST IS 


IS CALLED WHEN A MESSAGE IS WRITTEN INTO THE TERMINATION 
MAILBOX, INDICATI 


; CATING THAT A SUBPROCESS HAS GONE AWAY. 

; 3 INPUTS: 
; 4(AP) = ADDRESS OF TMBX AREA 
; OUTPUTS: 
;___ NONE 

00000003 LGIS_FACILITY = 211 ; LOGINOUT FACILITY CODE 
TERMINATION, AST: 
O9EC WORD “M<RZR3,R5,RO,R7,RB,R11> 


GET THE ADDRESS OF THE TMBX DATA STRUCTURE FROM THE AST ARGUMENT LIST. 
LOOK IN IT FOR THE ADDRESS OF THE PRC DATA STRUCTURE AND THE TERMINATION 
MAILBOX CHANNEL NUMBER. 


DDD DD AAA AAA AAAA AA AAA AAAAIAIAS Mme 


NWIWIWIWII I ea 
(7, ) 


WN =O OONAULS WN" OOONAUSE 


ac 4 MOVL 4(AP) ,R7 ; GET ADDRESS OF TMBX BLOCK | 
Oc A? of MOVL TMBX_L_PRC(R7),R11 ; GET ADDRESS OF CLI PROCESS WORK AR 
68 ; 

4 ; READ THE TERMINATION MAILBOX. IF NO MESSAGES ARE LEFT, THEN WE ARE READY TO 
6B + RESET OR DELETE THE MAILBOX AND RETURN FROM THE AST. 
AG AE 43 68 E MOVAB <=8-ACCSC_TERMLEN(SP) ,SP ALLOCATE BUFFER SPACE FOR | 
= 8 10$: THE 10SB + RECORD BUFFER 


VO 
bes | 


RERRARAS SE SUNN 
wwe 


Peet a Ah AL Ab Ab Abb bb bbb db db bb db bbb db db tb -db-dh-db-db-dbh hth ab ab ah dh sh dh sb dh hh dh dh db dh dh sh dah sh sh sh Ah Ah Ab Ab Ab ah ah dh al 


pa ey ee tet PIR RS RS Ot ee PELL 
NOUS WIN O 


MOVL , 

$Q10W_S FUNC=#10$_READVBLK! 10$M_NOW,- 

CHAN=TMBX~W_CH t= 
EFN=@ XESC_SYSEFN,~ 
10SB=(R8) ,= 


READ THE TERMINATION MAILBOX 


P1=8(R8) ,- 
Po=#ACCSC_TERMLEN : 
RO,15$ BRANCH IF ERROR 
; BRANCH IF MESSAGE READ 


(RB) , 208 
15$: BR 200$ MAILBOX CLEANED OUT - DONE 


DWOdNANE WII OC OONAU 


a ee ee ee ee ee ee ee ee ee ee ee ee ee ae ee ee ee ee a a a a a ad ed 
Fy at at ot ot at ae tt te tt at a et aa ee REE EU 


3 SEARCH THE LIST OF OUTSTANDING SUBPROCESS CONTEXT BLOCKS LOOKING FOR 
; A MATCH WITH THE SUBPROCESS WHICH JUST TERMINATED. | 
ASSUME SPUN L LINK FQ 0 ; 
308: MOVAB PRC_C_SPWN(R J} RS : GET ADDRESS OF SPWN BLOCK LISTHEAD | 
6 $: MOVL SPUR_C_LINK(R RO : GET ADDRESS OF NEXT ENTRY IN LIST | 
C AA BEQL 0$ : IF NOT IN LIST, IGNORE MESSAGE 
AB D1 «14AC CMPL © ACC$L_P1D+8(R8) ,~ ; DOES PID MATCH? 
4 Ag AF PUN_C_SUBPID (RO) ; 
Q 1 8! BEQL : BRANCH IF SO 
6 »o 8 MOVL RG R5 > SKIP TO NEXT ENTRY IN LIST 
ef 1 B6 BRB 25$ ; KEEP LOOPING 


Ss 
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no 
ze 


SuBPROLESS TE 


1 
48 ; 
12 $ THE PROCESS WHICH JUST TERMINATED HAS BEEN FOUND IN THE LIST 
148 : CURRENTLY ACTIVE SPAWNED PROCESSES. TAKE ANY TERMINATION ACTIONS WHICH 
14 : ARE APPROPRIATE. 
. 148 ai : SET THE TERMINATION STATUS IN THE SPWN BLOCK. 
o¢ as p01 $0$:  MOVL ACCSL F INALSTS+8(R8),- ; SAVE THE TERMINATION STATUS 
4A 1488 N_C_STATUS(R6) 3 
12 1480 BNEQ ti ; BRANCH IF STATUS i$ NON-ZERO 
oy 148 ; MOVL #1,SPWN_L_STATUS(R6) : IF "NO STATUS’, RETURN SUCCESS 
14€3 2601 ; 
14¢ : GET CURRENT IMAGE COUNT. IF NOT THE SAME AS THE IMAGE COUNT AT THE TIME 
14¢ : OF SUBPROCESS CREATION, THEN DO NOT EVEN CONSIDER QUEUEING A TERMINATION, 
146 : : SETTING A TERMINATION EVENT FLAG, OR SETTING TERMINATION STATUS. 
es on te § Sos: CLR ={SP) : CREATE GETUPI ITEM LIST | 
FR AE OF 14¢ PUSHAB -2*4(SP) : SET BUFFER ADDR 
041A0006 8F OD 14C8 608 PUSHL #JP1$_IMAGECOUNT@16+4 + REQUEST IMAGE COUNT, SEI BUFFER LE 
E 00 14ce 60 MOVL _—‘SP,R : SET ADDRESS OF ITEM LIST 
1401 610 SGETUPIV ; pe mbST=(RO) .- : GET PROCESS IMAGE COUNT 
1401 61g fda _SYSEFN ; 
51 BED 1468 261 POPL t GET THE CURRENT IMAGE COUNT 
C CO 1668 2614 ADDL + CLEANUP STACK | 
1 D1 14€ 15 CMPL + *SPON_L_IMAGCNT(R6) : SAME IMAGE AS ISSUED SPAWN 
7 12 14 616 BNEG «B08 : NO, THEN DO NOT QUEUE AST OR SET E 
14F4 2618 ; | 
146 619 : IF USE USER REQUESTED THAT THE TERMINATION STATUS BE RETURNED, THEN TRY TO RETURN | 
54 Ab 00 1464 26 ° . NOW OVE SPWN_L_STSADR(R6) ,RO : SHOULD STATUS BE RETURNED TO CALLE 
OD 13 1478 26 ‘ BEQL 60S ‘ $ BRANCH IF NOT 
14FA 26 IFNOWRT #4, @SPWN_L_STSADR(R6) ,60$,- : SKIP IF NOT WRITABLE 
14FA 2626 SPUN _ VACHODE RG) ; 
44 A600 13 625 MOVL § SPWN7L~STATUS(R6) ,- : RETURN STATUS TO CALLER 
54 B6 1303 96 2 ASPUR_C_STSADR(R6S 3 | 
1507 26 | 
7 6 3 : IF A TERMINATION AST WAS REQUESTED, THEN QUEUE IT UP NOW. 
4C as 05 1 ; bos: STL SPUN L_ASTADR(R6) : AST ROUTINE REQUESTED? 
10 13 150A EQL + BRANCH IF NOT 
150¢ DCLAST_S ASTADR=@SPUN LLASTADR(RG),- ; QUEUE THE AST 
150¢ 4 ASTPRM=SPWN_L_ASTPRM(R6) ,- ; 
oC ¢ ACMODE=SPUN “B~ACMODE (R6) ; 
151¢ ; 
1 1¢ ; IF A TERMINATION EF WAS REQUESTED, THEN SET IT NOW. 
OF AB «695)=«151C 40S: «‘TSTB SPUN_B_EFN(R6) : EVENT FLAG REQUESTED? 
OA 19 151 LSS 0$ : BRANCH IF NOT 
5 SETEF_S EFN=SPWN_B_EFN(R6) + SET THE EVENT FLAG 
1528 4; 
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a es 


ASSGN_S CHA 


CLRW = SPUN, : ~CHANTRE) 


198 28:15:96 


$: cAacet -3 prea ste W_ CHAN 
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; PREVENT THE PARENT FROM HANGING TRYING TO SEND ADDIT sens ve? 
CONTEXT MAILBOX BY CANCELING AND E ITIONAL MESSAGES TO THE 


(26) 


SSIGNING THE CHANNEL TO THAT MAILBOX. 


3 STOP ANY CURRENT WRITES TO MAILBOX 


; PREVENT FURTHER WRITES TO MAILBOX 


; INDICATE CHANNEL WAS ‘REMOVED 


; ig /NOTIFY SPECIFIED, THEN BROADCAST NOTIFICATION MESSAGE. 


$: BBC #SPUN_V 
SPWN o FLA 
BSBW NOTIFY Mm 
3 DECREMENT TERMINATION MAILBOX REFERENCE COUNT. 


$5$:  DECB TMBX_B_REFS(R7) 


; DELETE THE WRITE MAILBOX IF ALL THROUGH WITH IT. 


om 
Acs 


3 


SPW 


nO A tR 
CLRBTT PRC No HEA ACHED 
guelt SPWA_O_ACTIVE,§ 


108 


#SPUN 
SPWN und “Flags RS) 97$ 
BSBW BELETE OU 


BBC #SPUN_V 


dat? oo SFLAGS(R R11 
PWN-W~FLAGS(R6) 


SKIP IF NOT /NOTIFY 


+ BROADCAST NOTIFICATON MESSAGE 


3 DECREMENT REFERENCE COUNT TO MAILB | 


: SKIP IF NO MAILBOX 
$ UPDATE OUTPUT MBX USAGE 


»: 


UBPROCESS WAS CREATED /WAIT, THEN ASSUME THAT THE sugrnosess THAT JUST 
wA ; ATTACHED TO i" HE TERMINAL AND IS LOGGING ITSELF OUT. ALSO, 
HE PROCESS WAS DETACHED FROM THE TERMINAL AND SHOULD 


THAT PARENT 
NOW BE AWAKENED TO RECEIVE CONTROL. 


NOTE THAT THESE ASSUMPTIONS ARE NOT VALID IN THE CASE OF AN ‘‘ATTACHED’’ 
COUSIN DELETING ITS *DETACHED’’ COUSIN. 


ALSO MARK THE SUBPROCESS INACTIVE SO THAT THE PARENT WILL DELETE THIS 
PWN BLOCK. 


; SKIP IF /NOWAIT 


MARK NO LONGER DETACHED 
MARK SUBPROCESS INACTIVE 


; WAKE UP_CURRENT PROCESS 
; GET NEXT MESSAGE FROM MAILBOX 


; If THE ra ty WAS CREATED /NOWAIT, THEN REMOVE THE SPWN BLOCK FROM THE 
: LEST OF OUTSTANDING PROCESSES, AND DEALLOCATE IT. 


is 100$: ASSUME SPUN_ 
MOVL (R6)> 


MOVL 
MOVZUL 


So Stas NMEM 


REMOVE FROM LINKED LIST 

THE PROCESS IS NO LONGER ACTIVE 
SET apees oe OF BLOCK 

SET LENGTH OF SiLOCK 

DEALLOCATE SPWN BLOCK 

LOOP UNTIL MAILBOX CLEANED OUT 


SADADESEERSRISS PME urine CHESTS SRU:SS WOLDS AMRAROD Oe, 


1 3 
1 ; t REF COUNT FOR THIS MAILBOX IS NOW ZERO, THEN DEASSIGN iT AND REMY VE 
3 THE TMBX BLOCK FROM THE LINKED LIST. OTHERWISE, RE-ENABLE WRITE ATTENTION 
7 ; ON THE MAILBOX. 
08 A7 hoot TSTB mex B_REFS(R7) ; TEST REFERENCE COUNT TO MAILBOX 
05 eNEQ ¢ BRANCH IF STILL OUTSTANDING USES 
8 1589 | SBW , TE_TMBX ; DELETE ERMINATION MAILBOX AND TMB 
24 158¢ Bre : THER RESETING THE AST 
: i 210$: 10W_$ FUNC=#108_ “fe rraancd tater ; RESET ATTENTION AST ON MAILBOX 
eRe $71 10SB=(R : 
1 1 EFN=#EXESC. SYSEFN,- ; 
158— 2715 Pls J=TERMINATION. ASf,- : ADDRESS OF AST ROUTINE 
1 rig + PASS ADDRESS OF TMBX BLOCK 
04 1582 2717 220%: RET : 
1583 2718 
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BROADCAST WOT IFICATION MESSAGE pate ris ae TS seas a aoe $6, 
8 .SBTTL BROADCAST NOTIFICATION MESSAGE | 
B ; 
158 : THIS ROUTINE SROADCASTS A MESSAGE INDICATING “4AT A /NOWAIT SUBPROCESS HAS 
158 4 : TERMINATED. 
158 ; 
158 $ : INPUTS: 
158 ; 
158 : NONE 
158 ; 
158 : OUTPUTS: 
12Be 5533 : NONE 
158 735 3;--- 
1583 27 
1583 2735 NOTIFY_MESSAGE: 
5E . eS 4 7 SUBL  #NOTIFY_LEN,SP : ALLOCATE BUFFER ON THE STACK 
— SE b 1 4 MOVL P,=(SPY + BUILD BUFFER DESCRIPTOR 
43 ¢ 1 7 8 MOVL § #NOTIFY_LEN,-(SP) : 
5 E po 1 7 MOVL SPR ! SAVE ADDRESS OF DESCRIPTOR 
52 0092 C6 1 740 MOVAB SPWN_T_PROCESS(R6) ,R2 : GET PROCESS NAME 
1 €ABI CF OE 1 741 MOVAB NOTIFY"MSG,R1 t GET ADDRESS OF ASCIC MSG 
0 8 OW 1 168 MOVZBL (R1)+,RO + GET LENGTH OF MSG 
— 50 7D 1 74 mMOVa = RO, - ($P) : PUSH DESCRIPTOR ON STAC 
51 SE oO 1 744 MOVL SP. R1 : SAVE ADDRESS OF DESCRIPTOR 
1 745 SFAO_S CTRSTR=(R1),- : NOTIFICATION MESSAGE 
1 246 GUTLEN= (RS) - + ADDR OF RESULT LENGTH 
1 74 TBUF=(R3).= : ADDR OF BUFFER DESC 
1 748 PisR : ASCIC SUBPROCESS NAME ADDR 
51 00000028'8F D0 1 74 VL. #CTLSAG_CLIDATA+PPDST_INPDVI,R1 : GET ADDRESS OF ASCIC DEVICE NAME 
50 81 9A 1 750 MOVZBL (R1)+,RO : €5T LENGTH OF DEVICE 
6 0 7 1 751 va RO. ($P) + POT DESCRIPTOR ON STACK 
5 —E po 1 7 2 VL SPR : SAVE ADDRESS OF DESCRIPTOR 
2S, ae 7 CLRG 0s = §P : ALLOCATE AN 10SB 
50 6€ 00 138 MOVL  (SP),RO ; 
1 136 SBRKTHRUW_S MSGBUF =(R3) ,- : BROADCAST THE MESSAGE 
1 7 SENDTO=(R2) = F 
1 7 8 SNDTYP=#BRKS$C_DEVICE,- : 
1 7 REQID=#BRKSC_DBCL,- ; 
1 760 FN=#31,- 3 
76 10SB=(R6) ; 
SE 00000044 8F co 1 768 ADDL  #8+8+8+NOTIFY_LEN, SP ; RESTORE STACK 
1 7 RSB 
1 765 
1 766 END 


ee , 1 
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SPUN’ G" OMPT ANN 
SO ea nuO TAS + 0 00D <3 
-KLENGTH +'44'4'4" EP- 
SPWN-L-AST ! ii 106 SYM_K KEYPAD dC 
SPWN_L_ASTPR 4! NOH OD SYACKPERR L.SRCISPAWN MAR: 
SPuNcL~IRAGCHT ponaRe f SvA KS TRING . " MAR; 
ir Bifgramo tas te * Bas 
“LIPRIB 900000¢ ~TCSYMBOL 
SPUN L re + ' SYA el 
srt are Hast AEE: 
SPUN“C ~SUBPID 100000 SYSSBRKTHRUW § 
SPWN_M_CLI DO00¢ 054 SYSSCANCEL eeeeeren 
SPUN_A_CLISYM 9000004 SYSSCLREF aeeeeeee 
SPUN_M_KEYPAD = Roonse AES ytd t. ceeeerne GX 
SPUN-R_LOG = 000000 SYSSCREPRC eeeeeeee 
SPUN" ~ TABLE = 000000 svosoet as! eenerene 6X 
A a man +4'4'¢'+" sveopeurne soceesce GF 
-2CLI mab '+'+'+-+-+- } bt aakaenene G 
SPWN_Q_CMDSTR =U 000 +44 YSSGETCHN geeneeee x 
SPWN_Q INPUT 00 n SYSSGETDOVIW eeeeeeee GX 
SPUN Q-10SB8 D0 +34 SYSSGETJPIW Reereree x 
SPWN_Q_MBX iH! ’ SYSSGETSYIW Ree AR GX 
SPWN-Q- OUTPUT i : SYSSHIBER Titi i) GX 
SPWN_Q"PRC 0000001 SYSSINPUT eeeeenee GX 
SPANO TAB 500090 Sy ssunce creseess OX 9 
=) Are 000 445 SYSESEARCH noetene R 
=y" +4444 SYS$ ® * GX 
-V = 0000000 SET hl 0 
coRaN = 8388388 svagsaten iiaaee gf 
a elelelele ae 
YS - A 000 ; +4 ht AST 0000004F a 9 
* HnHHnnn -o. bd ® 
SPUN-V~NOC = fete THBNTETCENGTH 0000001 
=, ,2, F + YUU =, © INK 04 
SPuNV-OUTPUT = 00000006 THBK~L PRC 0 19 
SPUN-V~ 5 = 00 tit + TmBA-USIZE 900000¢ 
= UU ele 
seu-u-prercrm, 33390098 HTT Sea abe 
SPUNTU-UNTT 5000002 URITETRAILBOX e355 R 
oes BUPLNAR 444-444 URITESYMBOLS RR 
SS$~ENDOF F tttititit URK B-CHDOPT. ooo R 
VIS MAX ILE = 00 +9, 08 WRK-B_A T ; Q 
SYA_B FLAGS = 90000870 URE-B-RINPARR so0nn ‘ 
Hip raie * Ba atta Hi 
= RDA AAKE ba - UM 
SYA_K_BINARY 4! d90¢ )0E a he hi pereceee 
= 20000004 URE~6-VERBTYP FFEEECS 
~CIINPB FFFFFF 
URKTECLENGTH x FFFEFE CS 
FrFFFS 
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Symbol table ~$Eb 138 90:15:98 YOCL SRCTSPAUN MARS a (3), 
WRK_G_BUFFER FFFFF49 
WRK_G_I F FFFFF89 
WRK_G_RESULT FFFFF 
K LENG FFFFFG 
WRK_L_CHARPTR FFFFFS 3 
K-L“DISALL FFFFFFE 
WRK_L_ERRORRTN FFFFF9OA 
WRK-L-EXPANDPTR FFFFFG 
WRK_L_ IMAGE 44a dd y 
WRK_L_MARKPTR FFFFFS 
WRK_L_PAROUT FFFFFFD 
WRK_L_PMPTADDR 44448 4 
WRK-L-PROMPTRIN FFFFFOA 
WRK_L_PROPTR FFFFFFC 
WRK_L_QUABL FFFFFFCA 
WRK_L_READRTN FFFFFOAA 
WRK_L_RECALLPTR FFFFFFEA 
WRK_L_RSLEND FFFFFFB6 
WRK_L_RSLNXT 4a dds 
WRK_L_SAVAP FFFFFFF 
WRK_L_SAVFP FFFFFFFC 
WRK_L_SAVSP FFFFFFFS 
WRK_L_SIGNALRTN eee eree 
WRK_L_SPECRTN FFFFF9B 
WRK_L_TAB_VEC FFFFFFDE 
WRK_L_VERB FFFFFFB 
WRK_W_FLAGS FFFFFFF 
WRK _W_FLAGS2 FFFFFFF 
WRK_W_IMGCHAN peeecaas 
WRK_W_PMPTLEN FFFFFO9E 
_$$_ = OOOO00EF 
Femme one rman me rae $ } 
!"Psect synopsis ! 
beer e meee mae rennn} 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 ( -» 00 ¢ QO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABS FFFFFFFC ¢ ) 84 ( 1.) NOPIC USR CON ABS LCL NOSHR EXE R&D WRT NOVEC BYTE 
DCLSZCODE 00001619 ( 5657.) 02 ¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE | 
poco ewt worn cmenr ean swam dh } 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 16 700.05 :00: 1-93 
xonmene processing 83s :00. } :00: 3 
Symbol table sort :05.26 3 Hg-74 
Pass ; 399 : 3°89 :00:32.7 
Symbol table output 700.4 :00:00. 
Psect s sis output 700. :00:00. 
Cross-reference output :00. 200. 
Assembler run totais 134 259. :12. 


ES 
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VAK-11 Macro Run Statistics P=} 43: 0 CDCL.SRCIJSPAWN.MAR; 1 


The rere ins set_Limit was ¢709 pages. 
240218 bytes (470 pages) o virtust memory were used to buffer the intermediate © cde. 
There were 180 pages of symbol table ag? oh iece $4 to hold 3272 non-loca’ c1u 181 local symbols. 
2766 source Lines were read in Pass 1, produci ng 2 object records in Pass 2d. 
pages of virtual memory were used to define 72 macros. 


eer ees e eee e= eee seston eam moe + 


! Macro Library statistics ! 


| én OD ee Ge on a mw On om Sonnemeeent 


|Macro Library name Macros defined 
-$ geepuace: sre ie; M wet Tp MLB; 1 0 
$255$DUA28: COCL MLB; j 14 
“$255$0UA28: (SY vt 8 te LB;1 3 
“$255$DUA28: SYSLIBISTARLET. MLB; 2 4 
TOTALS (all Libraries) 6 


3762 GETS were required to define 63 macros. 


There were no errors, warnings or information messages. 


ecapedcacrttelthcat memmeten iacunee nahin: MSRC$: SPAWN/UPDATE=(ENHS: SPAWN) +EXECMLS$/LIB+LIB$:DCL/LIB+SYSS$LIBRARY : SYSBLDMLB/LIB 
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